CR le, 
à) PA à 
4 & 

















“TIREZ PLUS DE VOTRE TRS- 80” 
_ ET DE VOTRE POQUETTE SHARP 


| Essai matériel : kit double densité, p 19 + Des 
| monstres mathématiques, p 20 + Parler-vous 
franssais, p 24 e Des rubans sans fin, p 28 “ 
L . La trace de vos variables, p 29 « Un 
Rs Eu mn -Zap, p 32 e Réflexions, p 35 e Vitesse V 
== D 36 e Améliorez la vitesse, p 43 . L'amor- 
n ce, phbe sésame ouvre-toi, p 46 + Des extensions 
à votre Basic, p 48 e Un ER tri plus efficace, p 
ol e Les lignes vitales, == p 55 e RUBRIQUE 
PPOOQUETTES : Désasenbles po/ Essaie = 
Meet CE 153 p oe /éro de fonctions, = 
| p 60 « Bogues, p 60  Jumpmon, p 61 e La ville 
| dans la poche, p 62 e Bi-mots, p64m | 
| # 
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Si vous utilisez un IBM PC ou si vous comptez 

en acheter un, sachez que ORDI o été créé pour vous. 
ORDI vous permet de mieux connaître 

votre ordinateur personnel et d'en tirer le maximum. 
ORDI vous tient au courant de toutes 

les nouveautés et vous fournit des programmes, 

des astuces et de nombreuses idées d'utilisation. 


ORDI VOUS EVITE DES ACHATS DECEVANTS 
Le prestige d'IBM est tel que dès à présent 

une multitude d'entreprises proposent des logiciels, 
des cartes d'extension et des périphériques 

pour le PC ; ORDI vous aide à détecter 

parmi tous ces produits ceux qui sont bien adaptés 

à vos besoins. 


ORDINATEUR ET TERMINAL 

ORDI éivdie l’IBM PC sous toutes ses coutures : 
en tant qu'ordinateur autonome bien sûr 

mais aussi en tant que maillon d'un réseau local 
ou terminal d'une grosse unité centrale. 





DES EXPERTS 
ORDI est rédigé par des experis 
choisis part ceux qui connaissent 

le mieux l'ordinateur personnel d'IBM. 
Ne vous privez pas de leur expérience 
et de leurs conseils. 


ABONNEZ-VOUS 


… et profitez de notre tarif de lancement. 


ORDI, le complément indispensable de votre IBM PC 
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(actuellement 
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LV 


O Je désire recevoir le n° 


Ci-joint mon règlement ind 


* Pour les pays autres que le France, utiliser un wir: 





Lorsqu'à l'été 1977 Tandy annonça son TRS80 modéle 1, 
le succès en fut immédiat. Non que la concurrence man- 
quêt : Commodore avait annoncé son PET, et Apple son 
Apple 2. Mais le premier ne devint réellement disponi- 
ble qu'à l'automne, et le second était loin de dispo- 
ser du gigantesque réseau de commercialisation des 
boutiques Radio-Shack. Ceci, joint à un prix fort rai- 
sonnable, eut pour effet la vaste diffusion du modèle 
1 et des accessoires, tant logiciels que matériels, 
qui lui étaient destinés. 








las ! lorsque Texas Instruments voulut pénétrer sur 
marché que se partageaient Tandy, Apple et Commo- 
s dore (par ordre décroissant des parts du marché amé- 
Magazine ricain), ces derniers décidèrent de lui opposer quel- 
Côté court ques obstacles, par exemple en 1 nt entendre que 
STEP -1 1 TI 99/4 de ee POERe en peu te d' 
à nterférences radio. Message reçu, la FCC (Federa 
Trucs à brac Communication Commission) bloquait pour quelque temps 
l'intrus, et participait ainsi à son échec commercial. 


Editorial 
Courrier des lecteurs 





TEHO)IPA 


Essai matériel : 
Kit double densité 


= x La riposte ne se fit pas attendre : le TRS80 modèle 1, 
De vrais petits monstres l'Apple 2 et le Commodore PET se retrouvérent à leur 
Parler-vous un bon tour sur la sellette de la FCC. Les deux derniers ne 
franssais ? se tirérent pas trop mal des problèmes administratifs 
Des rubans sans fin de la FCC, mais le TRS80 en souffrit : Tandy dut in- 


troduire le modèle 3, qui en plus de la conformité in- 
contestable aux règlements de la FCC, présentait de 
nombreux avantages techniques par rapport à son pré- 


Gardez trace de l'usage 
de vos variables (II) 


Mini-Zap deviendra grand décesseur le modèle 1. 
La réflexion mise en boîte 


Au détriment toutefois du prix : Tandy, qui avait pen- 
Des cassettes avec un dant plus d'un an vendu l'ordinateur complet le moins 
grand V cher, vendait maintenant un ordinateur qui n'était 
Améliorez la vitesse de re le meilleur marché, surtout face à Sinclair et 
vos enregistrements NEC À 5 
sur cassette Simultanément, Tandy se réorientait vers les utilisa- 


ARE C FO tions professionnelles : le modèle 2 était destiné à 
same : ouvre- x = être l'arme absolue sur ce terrain, le modele 3 pro- 
Ouvrez votre modèle 1 sur tégeant les flancs de son offensive. C'est à cette 
le monde extérieur (III) époque que Tandy, jusque-là leader incontestable et 
Cocktail d'extension Basic incontesté du marché, se retrouvait second derrière 
Un tri encore plus efficace Apple, malgré l'accueil très réservé reçu par l'Apple 
Ë à 1 3. Aujourd'h IBM semble départager les deux rivaux, 
Lignes vitales : du moins en ce qui concerne 1 ventes de l'année 1983 
Et désassemblez maintenant ! sur le secteur professionnel ; Commodore est leader 
Un nouveau poquette : le sur le secteur domestique, juste devant Tandy et son 
Sharp PC-1245 TRS couleur, l'impact non négligeable du Sinclair pou- 
U re Teva VOLE vant être considéré dans une autre catégorie. Il faut 
n E 1er po d'ailleurs reconnaître qu'autant Commodore: que Tandy 
poquette furent surpris en 1982 du succes aux Et: de 












-s-Uni 













Lorsqu'une fonction leurs machines respectives (VIC et TRS Couleu alors 
sanpule :::- que Le marché le plus important leur ssrblait être 
Bogues, trucs, erreurs (2e les utilisations professionnelles. 
’ 1 
cuvée) Avec ses nouvelles annonces de 1983, Tandy se retrouve - 
Jumpman, le saute-fantômes bien armé pour faire face sur plusieurs fronts : côte 
’ 


L 11 d 1 h domestique, le Couleur et le dernier-né MC-10, alias 
a vi e ans a pocne Matra Alice sont bien placés pour se défendre Face 
Un mot peut en cacher un aux Commodore-64, TI 99/4A°e 





autres Sinclair ou Atari, 





autre du moins si Tandy arrive à 1 abriquer et à les ven- 
Le Dos de À à Z dre à un prix assez bas ; côté professionnel, le mo- 
Index dèle 4 dispose de tous les atouts du défunt modele SE 


mais aussi du standard CP/M et donc d'une ouverture 
plus large vers les fournisseurs indépendants, en at- 
tendant qu'une version "portable" vienne © 
prochainement la version "de table" ; toujo 
té professionnel, la situation des modèles 12 et 168 
est sans doute moins claire, du moins tant qu'il n'e- 
xiste pas une base suffisante de logiciels pour 
ordinateurs disposant comme le 16B du processeur 000 
16/32 bits ; enfin, dans un créneau légèrement diffé- 
rent, l'impact du modèle 100 semble considérable. 
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ipléter 
urs du cô- 


















* TRS- t dé de Tandy Radio-shack. 
RS-80 est une marque déposée de Tandy Radio-s TRACE 
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Boutique Ordinateurs 


Boutique Ordinateurs pour 
l’entreprise 
31, bd des Batignolles. 
75008 PARIS. = 
Tél. 522.70.66 - TÉLEX : 280 902. 
Ouvert du Lundi au Samedi sans 
interruption de 9 H 30 à 18 H 30. 


domestiques. 
33, bd des Batignolles. 
75008 PARIS. 


80 pages (Format 21 x 29) pour découvrir les nouveautés et 
les grands classiques de l’informatique domestique! 








Tél. : 522.70.66 - TÉLEX : 280 902 
Ouvert du Mardi au Samedi sans 
interruption de 9 H 30 à 18 H 30. 


LE CATALOGUE SIVEA 
VIENT DE PARAITRE! 


Ce nouveau catalogue est entièrement consacré à l'informatique 
domestique : les matériels, les périphériques, les logiciels (jeux, 
utilitaires, langages, gestion familiale.…), les livres, les revues, etc. 


Un second catalogue SIVEA entièrement consacré à l'informatique pour | 
l’entreprise et les professions libérales paraîtra avant la fin de l'année 





Service après-vente 
33, rue de Moscou. 75008 PARIS. 
Tél. : 293.02.22 - TÉLEX : 280 902 
Ouvert du Lundi au Vendredi sans 
interruption de 9 H 30 à 18 H 30. 
(Parking assuré au 43 bis, Bd des 


Batignolles. Métro : Rome-Place 
de Clichy). 


BON DE COMMANDE 


Bon de Commande pour recevoir un Catalogue SIVEA | 
INFORMATIQUE DOMESTIQUE à retourner à SIVEA S.A. | 
31, Bd des Batignolles, 75008 PARIS, accompagné d’un | 
règlement (chèque uniquement) de 25 F, 


NOM 
PRÉNOM 
ADRESSE 














21 bis, rue de Vzkowy 59000 LILLE. 
Tél. : 20/ 57.88.43 - 

TÉLEX : 110 146 

Ouvert du Mardi au Some 520 
interruption de 9H 301830 
Ouvert le Lundi de 13 H 30 à 18 H 30. 
Parking assuré Place de la 
République (entrée par le Bd de 
la Liberté). Métro : République. 


NANTES 

21 À, Bd G. Guist’hau - BP 388. 
44013 NANTES CEDEX. 

Tél. : 40/ 47.53.09 

Ouvert du Mardi au Samedi sans 
interruption de 9 H 30 à 18 H 30. #4 


Ouvert le Lundi de 13 H 30 à 18 H 30 














erdrepot cœnirol, pecrest re cie 
nus sur demonde dors wire bousé- 
que : demondez lo fs de = re 
durs. 
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TRACE 


le magazine des utilisateurs de TRS-80' 


















TRS-80 modèle 1, TRS-80 
modèle 2, TRS-80 modèle 3, 
TRS-80 couleur, TRS-80 
de poche, poquettes Sharp* 
Vidéo-Génie*, LNW#* : 
si VOUS utilisez ou si vous 
comptez acheter un de ces 
ordinateurs, sachez que la revue 
TRACE a été créée pour-vous. 
. TRACE vous fournit quatre 
fois par an des programmes, 
des astuces, de nouvelles idées 9 S 
d'applications. TRACE est E— 
indépendant de tout constructeur, a 
et Vous tient au courant de toutes DR 
les nouveautés dans les domaines des logiciels, des matériels et des 
périphériques, quelle qu’en soit la source. TRACE teste pour vous, en toute objectivité 
et indépendance, les produits matériels ou logiciels qui vous intéressent. TRACE n'est 
pas en vente chez les marchands de journaux. Pour vous abonner ou pour recevoir un 
numéro, il vous suffit de nous retourner le bon de commande ci-dessous. 





MESSAGE DESTINÉ AUX UTILISATEURS 
DE TRS 80 A DISQUETTE 









Désormais, tous les programmes 
publiés dans un numéro de TRACE 
et se rapportant aux TRS 80 de table 
ou à leurs compatibles 
sont regroupés sur une disquette 
que vous pouvez recevoir 
avec votre exemplaire de la revue. 















+ Bass 
Conan} Lori mt 





gi ( 










TRS 80, Sharp, Vidéo-Génie et LNW sont des marques déposées. Trace a le même éditeur qu'ORDI-5 le magazine des utilisateurs de ZX SINCLAIR 














TRACE, le complément indispensable de votre TRS-80 


en ha OU on Te LT 








BON DE COMMANDE = 
i à retourner à TRACE, 8 rue Saint-Marc 75002 PARIS Ë 
À Nom RÉTÉS SO QE Pur nn DE Et É 
è ACROSS OR Re set I 
RE  COG POSTER, = — _- Vjlle re 
i e Je désire recevoirlen°30 len°40 len°50 len°6[1 de TRACE (NB: les n°* 1 et 2 sont épuisés). Ë ie 
(Prix d'un n° 30 FF; Etranger** 35 FF: par avion 50 FF). 
: e Je désire recevoir la disquette d'accompagnement des n° 1et2[] dun°30O dun°4[] dun°50 dun° 


60 Ë 
(Prix d'une disquette 55 FF; Etranger** 65 FF). 

s e Je désire m’abonner à TRACE pour 4 n°% à partir dun°30 dun°40 dun°50 dun°60 dun°70 Ë 
O avec disquette (Tarif France : 290 FF; Etranger** : 320 FF; par avion 400 FF). 





i [1 sans disquette (Tarif France : 105 FF: Etranger** : 120 FF; par avion 190 FF). & 
(Actuellement TRACE est trimestriel). Ci-joint mon règlement indispensable par chèque bancaire D} chèque postal[] virement [] È 
; “* Pour les pays autres que la France, utiliser un virement en FF compte Crédit Lyonnais Paris n° 30002 00402 8401 M. Les frais de virement sont à la charge de l'acheteur È 


























ET 





DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 





- Certification unitaire 100% sans erreur. 


- Durée de vie : 30 millions de révolutions 
(standard de l'Industrie 3,5 millions de révolutions). 


- Anneau de renforcement en standard sur le 5 1/4”. 


- 5 1/4!" en 48 et 96 TPI, simple et double face. 


BFI ELECTRONIQUE - 9 RUE YVARI - 
75015 PARIS. | 
Tél. 533-01-37. 












Clefs pour le TRS-80 - Tome 1 

par Rémy Pineau 

Débutant ou spécialiste, ce ‘‘mémento” 
vous est destiné. Son but est de vous 
fournir les “clefs” d'un accès rapide et 
efficace à l'apprentissage ou à la maî- 
trise de l’utilisation des Modèles | et III. 
Ce premier tome aborde essentiellement 
les caractéristiques de la version de 
base du TRS-80 (plans, mémoires, bro- 
chages, codes, syntaxe, message d'er- 
reurs du Basic, codes machine Z80); 
cependant les deux derniers chapitres, 
consacrés aux adresses ROM et RAM 
du système, servent de transition au 
2° tome destiné aux utilisateurs actuels 
ou potentiels de disque. 


192 pages - 112,00 FF / 685,00 FB 


Clefs pour le TRS-80 - Tome 2 

par Rémy Pineau 

Possesseurs de TRS-80 modèle | ou Ill 
équipé de disques, ce deuxième tome 
des “clefs” vous est destiné. Il a pour 
objectif de vous donner les principales 
informations concernant l’utilisation 
des disques à travers l'étude des dif- 
férents formats de stockage de données, 
des commandes des Systèmes d'Exploi- 
tation Standards (TRS-DOS, LDOS 


nee-Petee _# 
NEWDOS) et des utilitaires associés les 
plus courants. 
ES EE RS 


au Canada 

SCE Inc. 

65. avenue Hillside 
Montréal (Westmount) 
ces H3, et ne 


P.S.I. DIFFUSION 

BP 86 - 77402 Lagny-S/Marne Cedex 
FRANCE 

Téléphone (6) 006.44.35 


P.S.I. BENELUX 

5, avenue de la Ferme Rose 
1180 Bruxelles 

BELGIQUE 

Téléphone (2) 345.08.50 


en Suisse 
cos 
postale 152 
Sens Se ER roches 8A 
1701 Fi 
Tél: 07) 2 28. 43.43 


: NOM - Ca PRENOM 













Envoyer ce bon 

de votre règlement à + 

P.S.I. DIFFUSION ESS En 
ou, pour la Belgique et ESRI =: 
le Luxembourg à par avion : ajouter 8 FF (75 FB) par livre ELU 
P.S.I. BENELUX Signature (obligatoire pour paiement 
© Paiementparchéque joint [1 PaiementenFF par carte bleue VISA par carte de crédhil) 


{à P.S.L DIFFUSION uniquement) ÆSS 


nlirilirtiils sl Date dexpiratonl 11 1 | 


(LUE TRSES nos 


Code postal Ville 


L'ORDINATEUR 
sélectionnés parmi INDIVIDUEL 


les meilleurs publiés dans 


En cinq ans L'ORDINATEUR INDIVIDUEL a publié des centaines de programmes dans 
les domaines les plus divers: gestion, enseignement, jeux, arts graphique et musical, mathématiques. etc. 


Voici un numéro spécial dans lequel ont été regroupés 50 des meilleurs programmes déjà parus 


dans L'ORDINATEUR INDIVIDUEL ainsi que la méthode pour 
les adapter sur la plupart des ordinateurs. 


à partir du 10 décembre 1983 
35 FF chez votre marchand de journaux 


" 


Pour recevoir ce numéro dès sa parution, il vous suffit d'envoyer vos nom et adresse a 
L'ORDINATEUR INDIVIDUEL (spécial programmes), 39 rue de la Grange-aux-Be 


* Etranger 40 FF. Une réduction de 5 FF est accordée aux abonnés sur envoi de la 
















ERVICE F 
EFRISE 


- 41 ROUTE DE RENNES - 44700 ORVAULT - 
TÉL. (40) 59.18.51 Ex 
> SFECIALISTE L 


* 
DE L 7 IMPRIMANTE \ e) 

















PROFESSIONNELLE 
è D,” OCCASION 
nr : Ce 
es # . PRIX DE ... e 
| So < SE 
#? $ © RES 
+ © < a (recondit ionnée) 
LOGABAX v” «© 
ee 


EX —-150 





e 15> COL OIMNMES 
eo 1550 CARACT/SEC 






« sur sortie PARALLELE CENTRONICS 
- Cables de liaison : 250 F : disponibles pour 
















APPLE TANDY TRS-80 
: SMT GOUPIL R2E 
* LARGEUR PAPIER RÉGLABLE 24: ses e 


+ sur INTERFACE SERIE RS232 
- Interface SERIE : 750 F + Cable 


IVRAISON ET INSTALLATION : 


Par nos soins et GRATUIT 
dans un rayon de 600 Km. 











+ ÉQUIPÉE DES OPTIONS :- BUFFER DE CARACTÈRÉS 
- IMPRIMANTE SUR PIÈTEMENT 





SERVICE REPRISE c ?’est aussi 
LES MEILLEURS FKIX SUR Le materiel NEUF 


MICRO OFFLINE ELIRS ES ES EC ES LEE CE CADET: 


LOGICIELS MONITEURS 


ASSURE 180 Koctets par drive 


FASCRL SO de NS == = = 

Modele I et III » 1 IRIVE Honiteur Video 

2 c’est GENIAL ! PROFESSIONNEL 
Testé en “6DB6"  u M 7PSEF Documentation » support de cours | Ecran ANTI-REFLETS 
Pour TRS-80 Modèle I,PROF-80,V.-G. en FRANCAIS incluse 12 Pouces » N/B 


Accepte aussi la simple densité. a _— a saisir EXT 


1 seul drive suffit 








Eu RAT ERRERRESE DER ET VENT 
r BON DE COMMANDE 
LE 7 à à retourner à SERVICE REPRISE - 41 route de Rennes - 44700 ORVAULT 
ee | Nom ES PF ÉNO NT EE a 
en Adresse = 
DISQUETTES 97 : SF 00 Avec anneau de ren — 
forremmnt,en boile plastique prémentoir Lit] ns 
CP. Ville s Pays__ Æ 








Sépcifier le type d'ordinateurs 












CLAVIERS EFFET HAL Quantité Désignation 
valeur neuve 14500 F HT.Livre en COFFRET. 
£4 touches + 19 touches fonctions 1---200 F 


seit 3 F la touche a effet Hoil !!1 


ALIM 5 Volts 4 Am » 
dans Rack 19 Pouces 





Idéal pour 2-3 Drives 


TRS-80 Modele I ET Modele III sont des maraues deposees de TANDY RADIO SHACK 
VIDEO GENIE SYSTEME est une marque deposee de EACA 







EME MAT--VE 





Extrait de nos CONDITIONS DE VENTE : | PORT et EMBALLAGE : Les TVA 186 % rl 
FRRARrR aus novennre eg nu denar L'Ge Nantes Marchandises au-dessus de 5kg | TOTAL TTC F rc | 
T.V.8. 186 X sur tout le materiel. 


Materiel disponible dans la Limite des stocks. voyagent en Port dû 


Cr-jonnt regl par chèque D 
Minimum de facturation : 400 F. 


Mandat O 
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A propos des disquettes TRACE 


Il arrive occasionnellement que certains de nos lec- 
teurs n'arrivent pas à relire correctement nos dis- 
quettes (c'est un comble !). Nous avons constaté après 
retour, que certaines d'entre elles avaient souffert 
durant l'expédition et se trouvaient aplaties. La 
conséquence directe est que le disque de mylar tourne 
avec beaucoup de difficultés dans sa pochette (on l' 
entend d'ailleurs lors d'une tentative de lecture). 
Avant de nous la renvoyer pour échange, essayez donc 
un remède assez simple : il suffit de passer une fine 
aiguille à tricoter (2 mm de diamètre) sous les 4 
bords de la pochette afin de leur redonner leur forme 
initiale. Il est conseillé toutefois de bien mainte- 
nir l'aiguille prés du bord afin de ne pas risquer de 
rayer le disque ! Certains lecteurs s'obstinent à 
vouloir lire directement la disquette (DIR) sur modèle 
3 avec TRSDOS... C'est peine perdue ! Le transfert ne 
peut se faire que par l'utilitaire CONVERT ou par un 
système d'exploitation capable de lire des disquettes 
en simple et double densité (NEWNDOS-80 par exemple). 
Dans ce dernier cas, il sera probablement nécessaire 
de Signaler au système par la commande adéquate, que 
la seconde unité est en simple densité. Pour informa- 
tion, nous donnons la commande PDRIVE de NEWDOS-80 
permettant l'exploitation directe de nos disquettes 
(DIR, COPY, etc...) sur modèle 3 : 


PDRIVE,0,1,TI=A,TD=A,TC=35,SPT=10,TSR=3,GPL=2, DDSL= 
17,DDGA=2, A. 


Déformations... professionnelles ! 


- Au lancement du programme DEFORME publié dans le 
numéro 5, j'obtiens une erreur "Illegal fonction call 
in 2290". Quant à SEGMENT, je ne parviens nas à in- 
troduire le "Memory Size" indiqué, l'écran ne me pose 
à aucun moment la question... De plus, BASPY et DRIV- 
CLA restent assez mystérieux pour moi, du fait de 
leurs versions multiples sur la disquette. Lequel 
faut-il choisir ? Pour BASPY, le retour au BASIC ne 
fonctionne que si la commande B ou Q est suivie d'un 
BREAK. Est-ce normal ? (Robert Lutz, Strasbourg) 


* Oui, c'est un peu notre faute... En fait, DEFORME 
et SEGMENT font partie du même article et le mode 
d'emploi qui associe les deux programmes s'est 
perdu dans la nature... ! Toutes nos excuses. IL 


10 - TRACE N° 7 - Octobre 1983 


faut d'abord lancer SEGMENT pour pouvoir utiliser 
DEFORME. Quant au “Memory Size" auquel vous fai- 
tes allusion, vous devez probablement posséder 

un Vidéo-Génie (vous ne le précisez pas sur votre 
lettre). Si tel est le cas, à la mise sous ten- 
Sion, votre ordinateur doit afficher "READY ?" 

et il suffit à ce moment là de frapper la valeur 
de la taille mémoire et d'appuyer sur la touche 
ENTER. 

En ce qui concerne les versions multiples! seul 
BASPY/BAS est directement utilisable. BASPY/ASM 
est le source assembleur (utilisable uniquement 
si vous désirez apporter des modifications \au 
programme) et /CMD est le code issu de l'assem- 
blage et qui, après chargement, devient /BAS\,.. 
Nous espérons que le numéro 6 vous a apporté Quel” 
ques précisions à ce sujet. De même pour DRIVCRA : 
/ASM est le source assembleur et /CMD est le code 
objet directement utilisable sous DOS. 

Les commandes B et Q de BASPY ne nécessitent pas 
l'appui de la touche BREAK car elles provoquent 
dès leur appui le retour au BASIC exactement à 
l'endroit où vous l'aviez quitté. Aucun affichage 
ne se produit dans ce cas. Si vous appelez BASPY 
(par SHIFT M) alors que BASIC est en train d'af- 
ficher un texte (commande LIST, par exemple), le 
retour au BASIC se poursuivra exactement là où 

il a été interrompu. Lisez attentivement les der- 
nières lignes de la page 46 du numéro 5 et faites 
ce qui y est indiqué... 


- Dans l'article sur le "driver clavier" des numéros 
5 et 6, il est question d'une touche CTRL. Comment 
l'obtient-on au clavier ? (SAMC, Vaujours). 


* Le caractère "flèche basse" a "sauté" dans le 
texte de la page 51 du numéro 5. Toutes nos ex- 
cuses pour cet incident. Il fallait lire (colonne 
gauche) : la fonction contrôle (CTRL) directement 
en pressant SHIFT et "flèche basse", sans dé- 
placement du curseur, comme avec les nouvelles 
MEM. 


Choisir son disque sur modéle 3 


- Je possède un TRS modèle 3 et je l'ai équipé moi- 
même d'un contrôleur et de 2 unités de disquettes. 
J'utilise le système d'exploitation NEWDOS-80 et j'en 
suis très satisfait. Par contre, il m'est impossible 
de faire tourner TRSDOS sur cette configuration. De 
quoi celà peut-il bien venir ? (Jean-Philippe Maquai- 
re, Galan). 


* Pour que TRSDOS puisse fonctionner correctement 
sur modèle 3, il est nécessaire que vos unités de 
disquettes soient suffisamment performantes pour 
accepter des temps "piste à piste" de 5 millise- 
condes, ce qui semple ne pas être le cas (en gé- 
néral, les Tandon conviennent parfaitement). Par 
contre, un lecteur connaît peut-être le "patch! 

à appliquer à TRSDOS pour qu'il accepte des temps 
supérieurs. Appel au peuple ! 


.-.. et choisir son assembleur ! 


- Suite à la remarque de M. Eichaker concernant EDTASM 
sur cassette modèle 1, il y a effectivement une "bo- 
gue" dans le programme qui ne permet de sauver seule- 
ment que les 610 premières lignes de code source. La 
version correcte porte la référence 700-9003 et elle 
est, en principe, échangée gratuitement contre la ver- 
sion erronnée. (François Heizmann, Brignais). 


* Voilà qui va faire plaisir aux nombreux utilisa- 
teurs qui nous ont signalé cette anomalie. On 
nous signale toutefois un autre remède (ci-des- 
sous). Grand merci à ces deux lecteurs. 


- Une fois lé programme chargé, il suffit de rem- 
placer l'octet 00 de l'adresse AAEA par l'octet 
FF et tout rentre dans l'ordre ! Ceci peut se 
faire en utilisant un programme moniteur ou enco- 
re, EDTSAM étant chargé, de repasser au BASIC 
(BREAK) et de faire : POKE 19178,255. Pour reve- 
nir dans l'assembleur, faire : SYSTEM et /19434. 
(Serge Cabala, Saone). 


Accorder les violons... 


- Concernant l'article sur MDX-2 de Henri Frère (n° 6), 
la spécification technique du MC14412 (modem LSI de 
Motorola) indique qu'un niveau logique O0 sur la bro- 
che 10 sélectionne les fréquences CCITT qui (oh sur- 
prise !) sont celles utilisées en France ! A priori, 
un coup de "cutter" et de fer à souder devrait arran- 
ger les choses... En ce qui concerne le transfert mo- 
dèle 1-modèle 3 (cf courrier des lecteurs du n° 6, 
page 11), il existe sur ce premier un couple de pro- 
grammes GETTAPE et GETDISK qui sont acceptés sans 
problème par le modèle 3. Le seul inconvénient est 
que le processus est désespérément long ! (François 
Heizmann, Brignais). 


* Voilà qui est interessant. Merci pour ces rensei- 
gnements utiles que certains de nos lecteurs ne 
tarderont pas à expérimenter ! 


TRSDOS, quoi de plus ? 


- Dans votre article "NEWDOS-80 version 2, quoi de 
plus" (cf TRACE numéros 5 et 6), je vous signale que 
la fonction APPEND existe sur TRSDOS 2.3, contraire- 
ment à ce qui est indiqué. J'ai aussi remarqué une 
fonction de ce DOS non-décrite dans le manuel Tandy : 
CMD'E'". Quel est son rôle précis ? (Eric Bertrem, 
Caluire). 


* Effectivement, APPEND existe sur TRSDOS mais de- 
puis la version 2.3 seulement. CMD"'E" permet de 
connaître la dernière cause d'erreur à la suite 
d'un problème lors de l'exécution d'un programme 
BASIC (accès disque notamment). 


Sauvegardez vos cassettes sur VGS 


- Le programme "sauvegardez vos cassettes"! est très 
intéressant mais inutilisable sur mon VGS EG 3003 
dont le magnétophone est intégré. Est-il possible 
d'utiliser la sortie DIN dans ce programme ? (JC. 
Chevalier, Rion des Landes). 


* Si vous vous reportez au courrier des lecteurs 
du numéro 5 (page 15), il est indiqué que l'accès 
à la Sortie DIN est possible par l'instruction 
OUT 254,1 qu'il devrait suffir d'ajouter avant 
l'exécution du programme. 


SUPER quoi ... ? 


- Dans le numéro 4 (pages 21,22) vous parlez .de SUPER- 
ZAP de NEWDOS-80. Possédant la version modèle 3, je 
n'arrive, pas à atteindre cet utilitaire (l'ordinateur 
répond tpujours : file not found). Le manuel qui est 
dans un anglais très technique, n'a pu m'aider. Quel- 
qu'un aufait-il la solution ? (B. de Stobbeleir, Dil- 
brek). | 


Fra folution est simple. Il suffit de frapper sous 
DOS (après le message : DOS READY) le mot : SUPER- 
ZA terminé par un appui sur la touche ENTER... 
C'est aussi simple que celà ! Si ce programme 
n'est pas trouvé (ce que semble indiquer le mes- 
sage d'erreur), il y à deux possibilités : ou bien 
votre disquette ne contenait effectivement pas 
cet utilitaire (et c'est absolument anormal), ou 
bien vous l'avez supprimé à la suite d'une mau- 


vaise manipulation. Dans les deux cas, nous vous 
conseillons d'en parler à votre revendeur. 


PROFILE sous NEWDOS-80 


- J'éprouve des difficultés à charger le programme 
PROFILE de Tandy sur NEWDOS-80 version 2. Connaissez- 
vous une solution à ce problème ?(Jean Dubois, Poul- 
seur). 


* La documentation Apparat signale (Zap n° 8) une 
modification à apporter au module INIT de ce pro- 
gramme. Attendu qu'il n'est pas toujours très fa- 
cile d'obtenir ces informations auprès des reven- 
deurs européens, nous la donnons ci-dessous. 

Nous vous conseillons aussi de "purger" votre 
disquette système de façon à laisser suffisam- 
ment de place pour le bon déroulement du program- 
me (NEWDOS-80 occupe davantage de place sur la 
disquette que TRSDOS). ATTENTION : la modification 
peut varier selon la version de PROFILE. Lisez 
d'abord le contenu avant d'appliquer l'un des 

Zaps ci-dessous : 


INIT, secteur relatif O0, octet 54 : 
Avant : 44 38 09 28 OF FE 14 28 13 C3 3F 52 CD 
Après : 44 20 19 00 00 00 00 00 00 00 30 08 CD 


Ou bien : 


INIT, secteur relatif O0, octet 63 ou 64 : 

Avant : 44 38 11 28 07 FE 1A 28 13 C3 47 52 CD 

Après : 4 20 19 00 00 00 00 00 00 00 38 08 CD 
A 


Toujours au sujet de PROFILE, Gérard Manel (Vau- 
couleurs) nous signale que le Zap dont il était 
question dans notre numéro 4 (page 22) concerne 
une ancienne version. Sur PROFILE V3.0, la même 
modification doit se faire au secteur 6 octet FE. 
Merci! 


Vous avez dit INPUT ? 


- Lorsqu'on exécute l'instruction INPUT, un point 
d'interrogation est toujours affiché. Existe-t-il 
un moyen pour le supprimer ou le remplacer par un 
autre signe ? (Paul Freyss, Tllzach). 


* Cette instruction étant située en mémoire morte, 
il n'est pas possible d'en modifier l'exécution. 
Par contre, si vous possédez le BASIC disque, 
l'instruction LINE INPUT devrait vous apporter 
entière satisfaction. Le cas échéant, un petit 
sous-programme basé sur la fonction INKEY$ vous 
aidera à résoudre votre problème. 


EDTASM+ sur modèle 3 ? 


- Poussé par la curiosité qu'avait déclenchée l'ar- 
ticle sur l'Editeur Assembleur Plus de Microsoft, je 
me suis procuré cette cassette. Malheureusement, elle 
ne tourne pas sur modèle 3. Connaissez-vous les modi- 
fications à apporter ? (JC. Draux, Maubeuge). 


* Il est tout de même curieux que Microsoft ne soit 
pas en mesure de fournir une version adaptée au 
modèle 3. Des lecteurs auraient-ils résolu le 
problème ? 


Rien qu'un p'tit trou... 


- Suite à votre article "doubleur de disquettes" du 
numéro 4, je vous signale que j'utilise depuis plus 
de 2 ans la "Perforette" à un trou fabriquée en Fran- 
ce par CONTE (référence 6011). Pour 10 F, ça marche 
merveilleusement bien ! (Raymond Debruyne, leper). 


* Merci pour cette information. Combien de trous 
en 2 ans ? 


TRACE N°7 - Octobre 1983 -11 


Imprimante... peuchère ! 


- Dans le Figaro Magazine du 11 juin, une publicité 
Tandy faisait mention de prix particulièrement allé- 
chants sur la gamme d'imprimantes VI, VII et VIII 
(1150 F pour 1a LP VII), offre valable sur les stands 
Micro-Expo et centres mentionnés pendant la durée du 
14 au 18 Juin. Bien entendu, j'étais au rendez-vous 
dès le premier jour de l'offre pour découvrir que, 
renseignements pris, l'imprimante en question n'était 
(déjà ?) plus disponible et que l'on pouvait me pro- 
poser un modèle de la nouvelle gamme à un prix natu 
rellement plus élevé... Je passe sur les évènements 
qui ont suivi (qui m'ont coûté une bonne dose d'éner- 
vements et de kilomètres à travers Paris) pour signa- 
ler que j'ai tout de même obtenu satisfaction. Mais 

à quel prix, finalement ? Tandy qui semble attacher 
une si grande importance à la légalité (notamment sui- 
te à son action auprès du Club Microtel), a-t-il agit 
ici de manière vraiment légale ? (R. Joffre, Paris). 


* Tandy semble avoir montré dans cette affaire quel- 
ques problèmes quant aux communications internes, 
puisque peu de boutiques avaient l'air informées 
de la promotion décidée par Tandy-France. Heureu- 
sement, vous avez finalement obtenu satisfaction. 


Le modèle 1 ? Quel modéle 1 ? 


- À l'occasion d'une révision de mon modèle 1, j'ai 
demandé l'installation du kit minuscules et du géné- 
rateur de caractères accentués. On m'a répondu que 
bien que ces accessoires figurent encore au catalogue 
83, ils n'étaient plus vendus (!}). Peut-être serait- 
il bon de le signaler à vos lecteurs (Pierre Derrey, 
La Varenne St Hilaire). 


* Voilà qui est fait sans autre commentaire. 





Question de Copyright... ee 


- Comment doit-on faire pour passer un Copyright sur 
un programme ? (Gérard Naudin, Mézieres). 


* Nous avons beaucoup tardé à publier cette ques- 
tion, espérant un jour pouvoir lui apporter une 
réponse valable ! En fait, il ne semble pas que 
la législation française soit encore très déve- 
loppée sur ce sujet. Il y a toutefois lieu de 
distinguer le Copyright associé à la liste d'un 
programme publié dans un livre ou une revue de 
de celui écrit magnétiquement sur une cassette 
ou une disquette. 

Un lecteur versé dans ces questions nous appor- 
tera-t-il une réponse ? 











320pts X 250pts 
X8 couleurs X2 pages 








l’équipe Hinf 
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influx 


NOUS SOMMES FIERS DE NOTRE EQUIPE 
La somme de notre expérience des micros TRS atteind presque un demi siècle 
Parmi nous, Serge: 40ans, 5 ans de TRS, 

un spécialiste du Hard, a conçu la carte HRC 80, 


un < bidouilleur > génial et plein d’humour. 
Haute résolution graphique pour modèle I et Ill 







Vous créez des logiciels ; 


* Narque dÉPOSÉE. et tous les kits et logiciels pour TRS l'et Ill 


Documentation sur demande contre 2 timbres à 2] (Envoyer une enveloppe avec votre adresse complète.) 


Hinflux 20, rue Laennec, 78330 FONT 


ENAY-LE-FLEURY Tél.: (3) 460.07.53 






U.N3 















indiqués au 13: 





prix 







Nous distribuons aussi 
tous les ordinateurs et produits SANYO 







.e.evveueeeeres 





TRACE et ORDI-5 ont une petite soeur ! Son nom est 
ORDI-MAGAZINE ! Il s'agit d'une revue trimestrielle 
consacrée à l'ordinateur PC d'IBM et à ceux qui lui 
sont compatibles au travers des systèmes d'exploita- 
tion MS-DOS et CP/M-86 (ordinateurs 16 bits). 


Le TRS modéle 100, dont nous avions annoncé le lance- 
ment aux Etats-Unis dans notre précédent numéro est 
disponible en France. Distribué dans 110 points de 


vente, le "mini-poste de travail pour cadres supérieurs" 


(!), ainsi que le nomme son constructeur, est vendu 
au prix de 5995 F pour la version 8 K octets, et 7495 F 
pour la version 24 K. 





TRS modèle 4 
Voici maintenant deux autres nouveautés 
PC-4 et.le TRS-80 modèle 12. 


le TRS-80 


Le premier est un ordinateur de poche, compact et é- 
conomique, dont le prix est de 695 F. Ii mesure 0,95 
x 16,5 x 7 cm et peut se glisser sans la moindre dif- 
ficulté dans un porte-document ou un Sac de taiile 
moyenne. Le clavier se compose de 53 touches avec bloc 
de saisie numérique de 10 touches. Son affichage à 
cristaux liquides de 12 caractères permet le défile- 
ment horizontal (62 caractères) et l'affichage des 
caractères minuscules. Son langage est le BASIC qui 
comprend 23 commandes, 15 fonctions, un mode EDIT 
(édition) et un mode DEBUG (mise au point). Les va- 
leurs numériques ont une longueur de 10 chiffres si- 
gnificatifs et les chaînes 30 caractères. Le PC-4 

‘ peut stocker jusqu'à 10 programmes de faible dimen- 
sion dont le lancement est associé à 10 touches du 
clavier. Le fonctionnement est assuré par deux piles 
au lithium dont la longévité est prolongée par un dis- 
positif de mise hors tension automatique en cas de 
non-utilisation. La machine est livrée avec un mode 
d'emploi complet et un guide programmation (en fran- 
çais, nous l'espérons). Les extensions prévues sont : 
un module mémoire 1 K octets (139 F) qui fait passer 


la mémoire de 544 à 1568 "pas" ; une interface cas- 
sette (349 F) à 300 bauds qui se connecte à l'arrière 
du PC-4, alimentée par 2 piles "crayon" ; une impri- 


mante (749 F) qui imprime des lignes de 20 caractères 
à la vitesse de 60 lignes par minute (matrice de 5 x 

7 points). Elle fonctionne sur batteries rechargeables 
au cadmium-nickel est est livrée avec un adaptateur/ 
chargeur se raccordant au secteur 220 V. Avec ses pé- 
riphériques (interface cassette et imprimante), le 
PC-H forme un tout compact de 3,6 x 17,2 x 17,8 cm. 


Le modèle 12 est d'un tout autre encombrement puis- 
qd'il est d'une taille voisine de celle du modèle 2. 
Ce nouveau matériel offre aux utilisateurs une très 
grande facilité d'extension, des possibilités de pro- 
grammation en divers langages et une capacité de sto- 


ckage accrue. Il représente une solution économique 
pour les applications professionnelles nécessitant 
des fichiers de données volumineux ou de nombreuses 
transactions, y compris le contrôle d'inventaire, les 
dossiers médicaux, la comptabilité, etc... La confi- 
guration avec clavier AZERTY et une unité de disquet- 
te est vendue 32.995 F (39°:995 F avec 2 unités). Il 
est équipé d'un microprocesseur 8 bits Z-80 A (ver- 
sion rapide) qui, couplé à un contrôleur d'accès di- 
rect à 1a mémoire (DMA) et à un système d'interrup- 
tion vectorielle, assure un débit d'informations plus 
rapide. La capacité mémoire est de 80 K octets pour 
la mémoire vive et 1,25 millions d'octets par unité 
de disquette. Le moniteur vidéo du modèle 12 se carac- 
térise par un écran vert haute résolution de 30 cm, 
affichant 24 lignes de 40 ou de 80 caractères (majus- 
cules et minuscules, plus 32 caractères graphiques). 
Le clavier amovible est muni de 82 touches dont un 
bloc de saisie numérique et 8 touches de fonctions. 


Les extensions sont possibles grâce à 6 connecteurs 
d'interface permettant de recevoir des cartes addi- 
tionnelles (extension mémoire jusqu'à 144 K, graphi- 
que haute résolution, kit d'émulation du modèle 16 
donnant des capacités de traitement 16/32 bits, avec 
une augmentation de la mémoire jusqu'à 768 K). Le mo- 
dèle 12 est équipé en standard d'une interface paral- 
lèle, de 2 interfaces série RS-232 et d'un accès pour 
disques externes. Il est compatible avec tous les lo- 
giciels du modèle 2. Le nouveau système d'exploita- 
tion TRSDOS accepte les disquettes 8 pouces en double 
densité, simple ou double face, mais aussi les nouvel- 
les unités de disques durs 12 millions d'octets. Ces 
dernières (34.995 F pour le disque maître et 24.995 F 
pour le disque esclave) présentent une capacité de 
Stockage accrue ainsi qu'un temps d'accès rapide grâ- 
ce à la technologie Winchester. L'unité se compose 
d'un lecteur de disques 5 pouces 1/4 isolé hermétique- 
ment de l'environnement extérieur et incluant un sys- 
tème de recyclage d'air filtré. Le débit est de 600 
Ko par seconde et le temps d'accès piste à piste est 


. de 3 millisecondes (8,3 ms en moyenne). Quatre disques 


durs peuvent être raccordés à l'ordinateur. 


(Tandy France, 211-213 Bd Mac Donald, 75019 PARIS) 


A l'occasion du Sicob, les éditions P.S.I. annoncent 
27 titres de livres et 7 disquettes d'accompagnement. 
Parmi les ouvrages susceptibles d'interesser les lec- 
teurs de TRACE, nous citerons : Méthodes de calcul 
numérique, tome 2 (Claude Nowakoxski), Programmer en 
Forth (Alain Pinaud = C'est un ami ! NDLR), le BASIC 
Microsoft (Ken Knecht}), Techniques de programmation 
des Jeux (David Levy), BASIC pour tous (Jacques Bois- 
gontier et Sophie Brébion), Boîte à outils pour PC- 
1500 (JP Lhoir et Richard Poret), La découverte du 
PC-1251 (Jean-Pierre Richard), Clefs pour le TRS-80, 
tomes 1 et 2 (Rémy Pineau), Bibliothèque scientifique 
en Pascal (Hervé Haut). 


(Editions du PSI, Pare Industriel Nord, Bât 9, 77200 
TORCY). 


SIVEA annonce l'ouverture de nouvelles boutiques à 
Paris, Bordeaux et Cannes. Ces ouvertures ont eu lieu 
durant les mois de Juin, Juillet et Août, et "corres- 
pondent à la volonté de SIVEA de décentraliser et d' 
améliorer la qualité des services rendus à la clien- 
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tèle". Avec ces nouvelles extentsions, SIVEA dispose 
aujourd'nui de 8 points de vente. 


SIVEA Bordeaux : Immeuble de la Croix du Palais 
Rue du Corps Franc Pommiés 
33081 BORDEAUX CEDEX 


SIVEA Cannes 14 boulevard de la République 


06400 CANNES 


A Paris, la boutique du 31 Boulevard des Batignolles 
est désormais exclusivement consacrée à l'informati- 
que pour l'entreprise (on peut y voir le PC d'IBM, 
Lisa d'Apple, Victor, Apple 3...) et à quelques mè- 
tres de là (au 33 du même boulevard), une nouvelle 
boutique est consacrée à l'informatique domestique 

et aux loisirs informatiques. Encore un peu plus loin 
(33 rue de Moscou), le service après-vente SIVEA as- 
sure la maintenance de la plupart des matériels d'in- 
formatique individuelle et peut réaliser à la demande 
la plupart des câbles d'interface pour connecter les 
différents éléments de systèmes d'ordinateurs. 


Tandy (que de surprises actuellement de la part de ce 
constructeur !), annonçait la sortie de 2 nouveautés 
au Sicob : le modèle 4 (dont nous avions annoncé .la 
commercialisation aux Etats-Unis dans notre numéro 6) 
et le MC-10. 


Le modèle 4, désormais fabriqué en France par MTE 
(Matra Tandy) est vendu 18500 F ttc pour une configu- 
ration 64 K, 2 unités de disquettes, interfaces paral- 


SPECIALISTE DES 
LOGICIELS DE 

GESTION SUR 
MICRO-ORDINATEUR 
adaptés aux PME 
PMI, commerçants, 
artisans, professions 
libérales. 


COMPTA: 


LOGICIEL DE COMPTABILITÉ GÉNÉRALE 
LI Re 27 Tee) 


EAN | = LLE 


LOGICIEL DE TRAITEMENT DE LA PAIE 
1500 F TTC FRANCO 


MATERIELS RECOMMANDES : 
Pour TRS-80 Modèle III (c) 
48k, 2 unités disques 5” 
Imprimantes recommandées : 
LPVII, LPVI, LPV, DMP-200, DMP-400 


(c) Marques déposées Tandy corporation 


CONTACTER S.A.R.L. SERIE II! 
5, rue Mont Alaric 11 NARBONNE 
Tél. (68) 42.18.92 - 4982.57 
pour obtenir des renseignements complémentaires 
®Marques déposées Dominique PETITQUEUX 
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lele et série (9000 F en 16 K cassette). Rappelons 
brièvement ses caractéristiques (voir TRACE n° 6 pour 
plus de détails) : carrosserie du modèle 3 (mais de 
couleur blanche), microprocesseur Z-80 rapide (4 Mhz), 
64 à 128 Ko de mémoire vive, clavier AZERTY, écran de 





Des Fanas autour d'Alice 


24 lignes de 80 caractères, systèmes d'exploitation : 
TRSDOS 6.0 ou CP/M Plus. 


Le MC-10 quant à lui, est un ordinateur à usage domes- 
tique, principalement destiné à l'initiation. Il est 
distribué par Tandy sous le nom MC-10 (couleur blan- 
che) et par Matra sous le nom "Alice" (couleur rouge). 
Son prix est de 1200 F. D'une taille de 22 x 18 x 5 cm, 
il se relie aux téléviseurs couleurs munis d'une pri- 
se Péritel et offre 8 couleurs sur un écran de 16 li- 
gnes de 32 caractères. Son clavier de 48 touches est 
de type AZERTY. Il permet l'affichage des commandes 
BASIC sur un seul appui de touche (Control) et de 16 
codes graphiques (Shift). Son microprocesseur est un 
6803 et sa capacité mémoire est de 4 K octets. Toute- 
fois, un module d'extension de 16 K peut lui être a- 
jouté. Le BASIC résident est naturellement signé Mi- 
crosoft et est pourvu de commandes sonores. Le MC-10 
possède deux interfaces de communication : l'une est 
destinée à un cassettophone et l'autre de type série, 
à une imprimante ou un modem. Dans cette version - 

et compte tenu du prix -, les possiblités sont assez 
restreintes mais sont toutefois suffisantes pour l' 
initiation. A quand maintenant, l'annonce du BASIC 
étendu ... ? 


Dernière nouvelle : le manuel sur le langage machine 
du PC-1500 doit paraître d'ici la fin de l'année...! 





Une nouvelle extension de mémoire C/MOS de 26 K RAM 
pour PC-1500:PC2 est maintenant disponible. Elle por- 
te la capacité totale à 29.296 octets accessibles pour 
la programmation en BASIC ou en langage machine. Ces 
cartes sont placées dans la machine par les soins de 
l'importateur. 


(L.L. Informatique SPRL, Bd Paul Janson, 82, B-6000 
CHARLEROI (Belgique)). 


Le club belge Micro-GDV compte actuellement 422 mem- 
bres (35 % de radio-amateurs) dont 202 sont des uti- 
lisateurs de TRS-80. 


(Micro-GDV, rue de l'Eglise, 54, B-4716 HERBESTHAL- 
LONTZEN) 


programmes 


Côté court 











UN INKEY$ PATIENT ! 


La fonction INKEY$ du BASIC est très utile pour la 
saisie "au vol" de caractères issus du clavier. Pour- 
tant, on aboutit toujours à la boucle classique : 


10 A$=INKEY$ : IF A$="" THEN 10 


car cette fonction n'attend pas la frappe du caractè- 
re. Voici une routine d'une ligne qui permettra l'at- 
tente d'une frappe au clavier. Elle fait appel au mot- 
clé NAME inutilisé en BASIC cassette. Avant son emploi, 
pensez à spécifier un MEMORY SIZE (32000 dans notre 
exemple). Avec cette nouvelle commande, vous possédez 





Cette courte séquence peut être ajoutée dans un pro- 


maintenant une fonction INKEY$ + l'attente d'une tou- 
che au clavier + la gestion possible de la touche 
BREAK + une économie d'octets... Voici d'abord un 
exemple d'appel (on retrouve le caractère dans A$). 
Notez le test du BREAK par CHR$(1) 

10 GSOSUB 50000 

100 NAME IF A$=CHR$#(1) THEN END 


110 PRINT A$ : 
120 GOTO 100 


Et voici la commande NAME 


: 


50000 A$="*x":K=32000:FORI=KTOK+168:READR:POKEI2R:INEXT: 
1=16783:POKEIrK-INT(K/256)#256:POKEI+1:K/256:RETURN: 
DATAZ17:205773:0:42224936bk4217741025%294235286718:217:201: 
REM3B 


Rémi Piette 


détruire le texte affiché (pour un nombre pair d'ap- 


gramme pour produire des "flashes'" sur l'écran sans pels) 
10 4%(0)=35 : AË(1)=-32316 : AB(2)=-16366 : AK(3)=-9079 : AE 
4)=29899 : AR(S)=-2264 : AÉCAh)=201 : DEFUSR=VARPTR(AZ(O)) 
Exemple d'appel 
20 FOR N=i TO 10 : B=USR(O) : NEXT É 
En configuration cassette, remplacer DEFUSR=... par : 
AZ=VARPTR(AS(D)) : POKE 14526r(A AND 255) : POKE 165274/256 
Claude Ferrand 
JEU DE TAB... 
PE Se différents... 
Regardez la ligne suivante. Elle semble bien banale ? 1 FOR I-0 TO 255 : PRINT TAB(I) WILEL" : NEXT : 
C'est vrai, et pourtant il suffit de changer la lon- GOTO 1 


gueur de la chaîne de "I" ou de supprimer la 
(avant cette chaîne) pour obtenir des effets 


virgule 
très 


Jean-Paul Calvier 


oo, 


"SPEEDY GONZALES'S AUTO-REPEAT"... 


Certains programmes ne servent apparamment à rien ou 
attendent de trouver une utilisation (en général, ce 


ne sont pas les plus simples à écrire !). En voici 
un exemple : 


5 CLS 


10 PRINT CHR$(PEEK(16537)); : GOTO 10 


Faire RUN et appuyer sur quelques touches... Essayer 
aussi la touche "flèche arrière" ou la touche CLEAR. 


Un mot d'explication. L'adresse 16537 est utilisée 
par la fonction INKEY$ et contient le dernier carac- 
tère introduit au clavier. Bien que le programme ci- 
dessus n'utilise pas cette fonction, l'interpréteur 
effectue une lecture systématique du clavier au dé- 
but de chaque ligne BASIC et met à jour cet emplace- 
ment mémoire. 


SRB TO RE GE LION 


UNE UTILISATION PEU COURANTE DE VARPTR... 


Regardez le programme ci-dessous. Que peut-il bien 
faire d'après vous ? Alors frappez-le, faites LIST 

et RUN (1a boucle FOR/NEXT permet de mieux voir ce 
qui se passe). En y regardant d'un peu plus près, 
nous voyons que les 3 POKE et le VARPTR déclarent une 
chaîne de caractères DANS L'ECRAN plutôt qu'en mémoi- 
re, ce qui est peu banal ! 


10 PRINT 3960,"*####11 : A$=" 1 : X=VARPTR(A$) : POKE 
X,64 : POKE X+1,0 : POKE X+2,60 
20 PRINT A$; : FOR X-1 TO 50 : NEXT : GOTO 20 


Une version plus lente - mis humoristique - consiste 
à remplacer la ligne 20 par : 


20 FOR X=64 TO 1 STEP -1 : PRINT MID$(A$,X,1); : 
NEXT : GOTO 20 


Fernand Gilles 
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step. 





STEP -1 





Cette nouvelle rubrique est destinée (comme son nom 
évocateur l'indique aux programmeurs BASIC que vous 
êtes !) à apporter des précisions, des améliorations 
ou à corriger des erreurs concernant les articles ou 
programmes des numéros précédents. Elle est née et 
sera alimentée en grande partie par vos lettres. Aus- 
si, ne vous en privez pas ! Merci. 


COYE COURT / TRACE n° 5, page 16 


- Une erreur de frappe (ordinaire) s'est glissée dans 
la ligne du programme "super-hexa-ordinaire"... Il 
faut ajouter une seconde fermeture de parenthèse avant 
“_Lg"n 7 


DRIVER CLAVIER / TRACE n° 5 


- Le programme DRIVCLA5/ASM figurant sur la disquette 
ne peut pas être traité par EDTASM version disque. La 
modification suivante (réalisable avec un "patcher" 
disque style SUPERZAP) m'a permis de résoudre ce pe- 
tit problème. (Ndlr : il doit s'agir d'une ancienne 
version d'EDTASM car nous n'avons pas constaté cette 
anomalie). 


Piste 10, secteur 5, octets 0 à 13 
AVANT : BOBO BOB1 B020 3B20 5355 5045 5220 4452... 
APRES : D34} 5249 5643 35BO0 BOBO B1B0 203B 4452... 


D. Lesage 


- Ce programme est un très bel outil qui possède ce- 
pendant une petite erreur. Lancez en effet le program- 
me BASIC : 10 GOTO 18... puis pressez simultanément 
sur CLEAR et ENTER pour appeler l'éditeur de texte. 

En essayant de déplacer le curseur, on plante 1a ma- 
chine. Le remède consiste à ajouter dans le programme : 


535 POP AF 


Après cela, le programme ne se plante plus mais le 
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TRAITEMENT DE TEXTE EN BASIC / TRACE n° 5 et 6 


- Avec les modifications ci-dessous, il est possible 
de concaténer deux ou plusieurs textes dont les mor- 
ceaux sont lus dans l'ordre logique sur cassette ou 
disquette. 


- ligne 680 : remplacer I=-2 par I=M-2 
- ligne 530 : remplacer I=0 par I=M 


De plus, il est bon après la lecture d'une page, de 
se retrouver dans la même configuration qu'à l'écri- 
ture de cette page. Aussi, peut-on ajouter les lignes : 


705 INPUT#-1,JL,MA 
785 PRINT#-1,JL,MA 
535 INPUT#1,JL,MA 
605 PRINT#1,JL,MA 


G. Mignard 


- Bravo à Frédéric Mora pour son superbe programme 

de roulette. Il y a toutefois une petite imperfection 
qui se produit lorsqu'un joueur décide de miser tout 
son argent sur le premier coup. Dans ce cas, R(I,K) 
(objet des mises) et G(I,K) (montant des mises) du 
tour précédent ne sont pas annulés. La ligne 1810 
devient donc : 


1810 IF F(I)-0 THEN 1900 


Allez, Messieurs, plus de tricherie possible : à vos 
claviers et faites vos jeux ! 


Guy Berger 


déplacement du curseur laisse une trace. Cette nou- 
velle erreur est corrigée par : 


202 LD EL, (4020H) 
204 LD A, (HL) 
206 LD (4O22H) ,A 


L'avantage de cette modification est de pouvoir sau- 
ter à cet éditeur à partir de la fonction USR par 
exemple, sans perturber l'affichage vidéo, puis de 
retourner au programme en pressant la touche BREAK. 
L'adresse du saut s'effectue alors à la ligne 202 (& 
HFD88 en version disquette). 


Serge Cabala 


TAQUIN / TRACE n° 6 


- Bravo à l'auteur : j'ai beaucoup apprécié l'idée, 
mais je le soupçonne d'avoir volontairement joué un 
bon tour aux lecteurs ! En effet, tel que le program- 
me se présente, la fin du jeu conduit à deux configu- 
rations : 


NE 0: 
SG TG 
SOIT 
13 14 15: 


qui est la solution cherchée, 
mais aussi : 





configuration dans laquelle il est impossible de ga- 
gner ! 


Pour les "“matheux", c'est une simple question de per- 
mutation "paire" ou "impaire". Je propose donc une 
modification de façon à ce que la solution soit tou- 
jours possible. Il s'agit simplement, lors de la dis- 
tribution aléatoire des cases, de calculer la "signa- 
ture" de la permutation. Si cette dernière vaut -1 
(cas impossible), on inverse deux cases. Au passage, 
je modifie également le procédé de distribution afin 
d'éviter de tirer plusieurs fois le même nombre ! 


Voici les lignes à modifier 


20 DEFINT C-T : DIM Tiér4)2R(16)»5(15) 
ne 260 FOR I=i TO 15 : Gil)i=l : NEXT 1 
né ES 270 J=i6 : FOR I=i TO 15 
9 10 11 12 280 J=J-1 : K=RND(J) : RCI)=S(K) : SiK)=S(J) 
SR 290 NEXT I 
300 K=1 : FOR I=2 TO 145 : FOR J=1 TO I-i 
310 K=K#SGN(R(I)-R(J)) 
390 NEXT J31 
340 IF K=-1 THEN R=R(i) à Rid=R(2) : R(I=R 








CD 2 





BUFFER "BIDON" 


I1 est souvent pratique de pouvoir disposer en 
d'un emplacement memoire ne gênant personne... 
y placer une routine binaire, par exemple. Les 
sateurs de systèmes à disquettes savent que le 


10 I=1 numero du buffer 
PNR AE TRES ENCNENNNEIECUS 
SGD VEVARPETRESS) 3 CLOSE : K 
#0 Î TT 





= 
ê 





Gérard Chevin 













.… PLEURE PAS 
C'EST LA DERNIÈRE. AVEC 
27 MÉMOIRES DE 25€ K CHACUNE 
ET Le TécÉPnoNe TRAFIQUÉ , mous 
ENTRERONS AU COEUR DE TOUTES LES 
MEMOIRES INFORMATIQUES DU 
GLOBE!! LE PIED :!: 














ET ON POURRA LES 
MODIFIER ? 


[l 
me réserve en mémoire autant de "buffers" (ou zones 
tampon) que de fichiers pouvant être ouverts simulta- 
nément (réponse à HOW MANY FILES sous TRSDOS). La va- 
leur implicite est de 3. Ainsi, il est possible d'u- 
tiliser l'un de ces buffers pour y stocker 256 octets 
de données. Son adresse est obtenue ainsi 


1:11 ÀS A$ 
“HIDON” 
lise trouus à l'adresse‘: 


Roger Brousmiche 
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ON VGS "SYNPAT"... 


Suite à l'article sur le synthétiseur vocal "SYNPAT" 
de Pentasonic, voici l'adaptation qui fonctionne très 
bien sur le Vidéo Génie. 


Broche sortie bus VGS Signal Broche carte SYNPAT 


15 DO 30 
14 D1 22 
12 D2 32 
1 D3 26 
20 D4 18 
11 D5 28 
18 D6 24 
17 D7 20 
1,2,49,50 masse 8 

10 ÿR —! 

3 out 12 
38 IORQ 

74LS32 


Le circuit 7U4LS32 sera alimenté par le VGS en faisant 
les liaisons : 


Broche 19 VGS (+5 V) ---- patte 14 LS32 
Broche 50 VGS (masse) --- patte 7 LS32 


Dominique Brioux 


Après une série de problèmes pour lire les cassettes 
sur mon modèle 1, j'ai réussi à obtenir un résultat 
significatif en retouchant l'azimut de la tête de 
lecture du magnétophone (alignement par rapport à la 
bande). Il faut pour cela, passer un petit tournevis 
dans le trou se trouvant au-dessus du I de REALISTIC 
et de tourner jusqu'à obtenir le son le plus aigu. 
Depuis, je ne prends presque plus de crises de nerfs! 


Jean-Paul Favier 


NE PARTEZ PLUS A L'AVENTURE SANS DICTIONNAIRE ! 


Si comme moi, vous avez un certain penchant pour les 
jeux de rôles et pour les quêtes de trésor et si vous 
aimez les énigmes, alors vous possédez sûrement quel- 
ques jeux de la série ADVENTURE. Toutefois, un problè- 
me risque de se poser assez rapidement : l'impossibi- 
lité de progresser dans le jeu. Trois solutions s'of- 
frent à vous : consulter des amis qui sont peut-être 
allés plus loin que vous ; reprendre à zéro en notant 


tous les éléments connus et les obstacles, au prix de 
plusieurs jours de "sèche" ; écrire à Adventure Inter- 
national pour recevoir les "hint-sheets" de la série 
(mais cela ne résoudra pas tous les problèmes). L'une 
ou l'autre de ces solutions arrive presque toujours 

à l'impasse. Mais ne jetez pas votre jeu en disant 
"c'est impossible ! Ce jeu est idiot !" car je vous 
propose de règler rapidement une partie de vos pro- 
blèmes en vous permettant d'avoir tous les éléments 
en mains. 

Il faut savoir que chaque jeu d'aventure possède son 
propre vocabulaire (verbes et noms) et souvent, le 
problème est que nous ne savons pas quel mot employer. 
Avec les éléments qui suivent, la totalité du vocabu- 
laire apparaîtra sur l'écran... 

Il y a deux types de procédure parce que deux séries 
différentes : la série ADVENTURE classique et la sé- 
rie OTHER VENTURE. Voyons d'abord la première. Après 
avoir chargé le programme par la commande SYSTEM, par 
exemple : 


>SYSTEM 
*? ADVENT 


appuyer sur BREAK et taper : 
FOR 1=18000 TO 38000 : PRINT CHR$(PEEK(I)); : NEXT 


Vous verrez alors défiler le contenu de la mémoire 
sous forme ASCII (arrêt momentané par SHIFT 3). Ce 
type de programme comporte un vocabulaire formé de 
mots de 3 ou 4 lettres chacun. Il faut ajouter à ce- 
la les commentaires descriptifs et les messages d'er- 
reurs. Prenez des notes passage ! 


Avec la Série OTHER VENTURE, charger le programme 
comme précédemment mais au lieu de faire BREAK, ap- 
puyer sur le bouton RESET. Autant le dire : ça ne 
marche pas toujours car ces programmes sont dotés d' 
un "auto-start"... T1 faut parfois "réveiller" la ma- 
chine en passant un objet métallique sur les contacts 
de la prise d'interface placée à l'arrière du clavier 
(cela peut paraître dangereux mais c'est sans consé- 
quences fâcheuses !). En général, on obtient ensuite 
le message MEM SIZE?. Appuyer alors sur RESET puis 
sur BREAK, et taper la ligne de programme ci-dessus 
pour lister la mémoire. En cas de plantage, remplacer 
18000 par 17000 ou faire un CLEAR 50 et refrapper la 
ligne. Parfois, un NEW est nécessaire (sans dommage 
pour la mémoire programme). Cette seconde partie pos- 
sède un vocabulaire plus restreint sous une forme dif- 
férente de la première. Par exemple : BRBE SOLD repré- 
sente "BRIBE SOLDIER", soit deux mots. Par contre, 

les commentaires sont plus détaillés. 

Comme vous le voyez, la première série est plus sim- 
ple à forcer mais la seconde est plus intéressante du 
point de vue du jeu. À vrai dire, je n'ai jamais réus- 
si à terminer sans aide un "Other Venture". Bonne 
chance, et ne désespérez pas : on peut toujours y ar- 
river ! 


Philippe Mauriras 


Vos amis 


connaissent.ils 
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essai matériel 





Kit et double! 





LRRRIRENS RENTE GENE RRREIEAELR 
CRAN ANRANANRENERS EERENENE DEEE) 
LERERINRNTENNU EE CANNENSETEEELE: 





TRS-80 MODEL I TREDOS VERSION 2.7DD THU MAY 2, 1982 
68K SYSTEM, NUMBER OF DRIVES = 2 SERIAL #: 5206200089 
COPYRIGHT 1981 TAMDY CORP. ALL RIGHTS RESERVED, 
UNAUTHORIZED REPRODUCTION OF THIS SOFTHARE 15 PROHIBITED 
AND 15 IN VEDLATION OF UNITED STATES COPYRIGHT LANG, 
AUTO FUNCTION ENGAGED 


J'ai acquis tout récemment le kit double densité pour 
modèle 1 de Tandy, disponible depuis peu en Belgique. 
Je l'ai payé 8.995 F belges (environ 1350 F français). 


Le kit comprend un circuit imprimé à implanter dans 
l'interface d'expansion (aucune soudure n'est néces- 
saire), une disquette TRSDOS 2.7DD, un luxueux manuel 
de 176 pages (en anglais), et un dépliant cartonné ré- 
sumant les commandes du DOS, les instructions DISK- 
BASIC, et bien d'autres choses encore, dont 14 adres- 
ses de sous-routines en ROM. 


Le manuel, très complet, décrit en outre 20 sous-rou- 
tines du TRSDOS. Leurs adresses sont les mêmes que 
celles du TRSDOS 2.3, du moins pour celles déjà dé- 
crites dans le manuel de ce dernier. 


Le circuit imprimé contient un contrôleur double den- 
sité, un socket dans lequel on enfiche l'ancien con- 
trôleur, plus une dizaine de boîtiers plus petits. 

Je n'ai pas essayé d'en relever le schéma, mais il m' 
a été certifié que le circuit contient l'indispensa- 
ble séparateur données/horloge. 

Le tout s'enfiche dans le socket de l'ancien contrô- 
leur. 


La modification doit, en principe, être effectuée 
dans un atelier Tandy, sinon la garantie est perdue... 


Ceci fait, la machine fonctionne exactement comme a- 
vant, avec une ancienne disquette dans le drive ÿ. 
Par contre, dès que l'on y introduit le TRSDOS 2.7DD, 
notre vieille Thérèse est miraculeusement rajeunie de 
plusieurs années ! 


La capacité des disquettes est augmentée de 89 %, 
soit 152 K formatés sur 35 pistes ou 175 K sur 40 
pistes. 

Le système complet avec ses utilitaires occupe 64 K, 
mais il est possible de créer un MINI-DOS de seule- 
ment 20 K. 


On peut accéder aux disquettes simple densité par les 
seules commandes DIR et COPY. 
COPY est devenu nettement plus performant. Il suffit 
par exemple de faire 

COPY /BAS :1 :2 
pour recopier sur le drive 2 tous les fichiers du dri- 
ve 1 comportant l'extension BAS, les disquettes 1 et 
2 étant indifféremment formatées en simple ou double 
densité. 


La copie fichier par fichier est également possible 
si l'on ne dispose que d'un seul drive. 

Le DOS contisnt un utilitaire bien protégé nommé ULC 
qui se charge automatiquement en mémoire haute... si 
le kit "minuscules" de Tandy est installé, ... sinon 
il faut se tirer d'affaire autrement. 


En désassemblant le haut de la mémoire, j'y ai trouvé 
bien cachée à l'adresse FEE1H, une routine identique 
octet pour octet, à celle que j'utilise depuis tou- 
jours, et il m'a suffi de faire 

POKE 16414, 225 : POKE 16415, 254 
pour retrouver 'mes' minuscules (en SHIFT). 


Vous l'avez déjà compris, le kit double densité con- 
fère au modèle 1 la plupart des avantages du modèle 


se 


La première page d'écran est quasiment celle du modè- 
le 3, avec bien sûr le curseur clignotant et les tou- 
ches à répétition. 


La bibliothèque du DOS contient 45 commandes, contre 
19 pour la version 2.3 ! - Notons au passage 


BUILD = construire un fichier de commandes qui sera 
exécuté par DO et mis en AUTO pour chaîner une suite 
d'ordres incluant l'accès au BASIC jusqu'au lancement 
d'un programme. On peut y inclure une PAUSE qui affi- 
che à peu près "ENTER pour la suite' après un éventuel 
message personnalisé. 


CREATE = créer un fichier en définissant le nombre d' 
enregistrements et leur longueur (de 1 à 256 octets. 
c'est nouveau !). 


DUAL = affichage simultané sur l'écran et l'impriman- 
te. 


CONFIG = configurer un drive (nombre de pistes = 35 
ou 40, durée d'un changement de piste = 6 à 30 ms).- 
On ne peut cependant configurer en 40 pistes que les 
drives initialement prévus pour accepter 40 pistes. 


PATCH = pour modifier le contenu d'un fichier. 


PURGE = élimination globale de certains types de fi- 
chiers. 


LPC pour configurer certaines imprimantes, et SPOOL 
pour créer un buffer de texte permettant à l'impri- 
mante de fonctionner seule, sans perturber l'exécu- 
tion du programme en cours. 


SETCOM = pour définir les paramètres de l'interface 
série RS-232. 


Certaines commandes comme DIR, FREE et LIST acceptent 
l'option PRT = écriture simultanée sur l'écran et 
l'imprimante. 


etc etc... 


Le DISK-BASIC n'est pas en reste. Le nombre des CMD 
passe de 4 à 16 ! Par exemple 


CMD'D:1' affiche le DIR du drive 1 avec retour au 
BASIC. 
CMD'C' comprime un programme en éliminant les REM et 
(ou) les espaces. 
CMD'L' charge un fichier binaire. 
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CMD'Y' donne les références de mots-clés, de varia- 
bles ou de chaînes. 
CMD'Z' pour l'affichage simultané sur l'écran et 1' 
imprimante. 
CMD'0' , 1090, F$(1) trie les 190Q premiers éléments 
de F$() en 7 secondes ! 


On peut renuméroter les lignes par NAME. 


OPEN'E' ouvre un fichier séquentiel pour l'écriture 
à la fin d'un fichier existant (sans détruire 
celui-ci). 


OPEN'R',2, ‘FICHIER:1' , 79 . et la longueur des 
enregistrements logiques est de 79 octets ! 


<.> ou<,> en début de ligne LISTe ou EDITe la ligne 
courante. De même, flèche haute ou basse LISTe la li- 
gne précédente ou suivante. 

LU ou EU, LISTe ou EDITe la ligne 449 etc... - 

Il y à maintenant 12 abréviations au service du pro- 
grammeur pressé. 


Tout ceci est positif. De plus la compatibilité sem- 
ble assurée avec le TRSDOS 2.3, sauf peut être pour 
certains CALL, PEEK ou POKE par trop spécifiques. 


Par contre, des doutes subsistent en ce qui concerne 
l'utilisation inconditionnelle des progiciels écrits 





mathématiques 


De vrais 
etits monstres! 


pour le modèle 1, et Surtout le manuel ne dit mot des 
possibilités d'accès aux disquettes du modèle 3 ! 


Côté négatif, j'ai seulement relevé (jusqu'à présent), 
la difficulté de récupération d'un programme BASIC 
par BASIC * (retour au BASIC après un court voyage 
dans le DOS). 

D'après mes investigations, avant de taper CMD'S!' ou 
CMD'I' il faut faire CLEAR 59, mis le programme est 
quand même perdu après un RESET, volontaire ou non ! 


La taille de la mémoire vive disponible est aussi rac- 
courcie d'environ 899 octets. La raison en est simple : 
le driver du clavier est entièrement réécrit en fond 
de mémoire. - Il a bien fallu trouver de la place pour 
implanter les nouvelles routines permanentes pour le 
curseur clignotant, les touches à répétitions et les 
abréviations. 


Bref : le bilan final est tout à fait positif. 


Créer un fichier de 1209 enregistrements de 129 oc- 
tets... Plus de 89 Koctets de programme sur la dis- 
quette système... Trier 1999 fiches en 7 secondes... 
en une seule ligne BASIC... L'imprimante qui travail- 
le (presque) toute seule... 


Des rêves qui deviennent réalités ! 


Roger Brousmiche 














Les mathématiques, c'est bien connu, Sont la science 
de la rigueur pure : des hypothèses, des raisonnements, 
des conclusions... que de l'abstrait (une droite n'a 
pas de de réalité physique, elle a une équation). 
Heureusement, au niveau historique, les mathématiques 
se sont rarement développées ainsi il y a très sou- 
vent des choses bizarres, introduites par l'audace de 
certains (nombres dits complexes, calcul intégral...) 
qui ont contraint à réfléchir sur des notions délica- 
tes. 


Enfin TRACE n'a pas pour but de former ses lecteurs 

à la philosophie des mathématiques ! Toujours est-il 
que, vers les années 1900, un certain nombre de "pe- 
tits monstres" fut introduit. Une fois étudiés, ils 
sont allés rejoindre la galerie des curiosités ou amu- 
sements mathématiques, qu'on ouvre parfois pour ébahir 
le profane. L'étude de certains de ces petits monstres, 
appelés objets fractals, a connu ces derniers temps 
un regain d'intérêt sous l'impulsion d'un chercheur 
d'I.B.M. (tiens ! tiens ! ils ne se contentent pas de 
fabriquer des ordinateurs ceux-là). 


On trouve dans "Penser les 
Points, Sciences, Seuil, p 
vante “dont la forme est 
re, soit extrêmement interr 
le que soit l'échelle d'examen". 
111 Revenons aux années 1900 pour 
objets dits fractals : 
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1) la courbe de Peano (1890) 


Etape 1 





Etapes 3,4,.. on continue 


Cette courbe- c'est-à-dire ce qu'on obtient "à la 1i- 
mite", en répétant indéfiniment le procédé - a la pro- 
priété bizarre de finir par remplir un carré. Eh oui: 
il y a des courbes tellement courbes qu'elles finis- 
sent par remplir des surfaces !! Je vous l'avais dit: 
un petit monstre ! 


2) 1a courbe de Von Koch (1904) 





Au travers de ces exemples, on réalise mieux qu'un 
obiet fractal est obtenu par la répétition systémati- 
que d'un procédé de construction. Essayez de faire 
tout seul l'étape n° 3 de la courbe de Peano... si 
vous y parvenez, cet article ne vous concerne pas. 

A la limite, revendez votre ordinateur, vous n'en a- 
vez pas besoin ! Sinon, chargez dans un premier temps 
le programme de tracé automatique de droite en langa- 
ge machine (voir TRACE n° 5) puis tapez le programme 
ci-ioint. 

Il est important de comprendre la méthode utilisée 
dans ce programme pour "“fractaliser" n'importe quoi. 
A priori, on pense à la récursivité, mais ce n'est pas 
le point fort du BASIC. Reprenons les exemples ci-des- 
sus à l'étape n° 1 et numérotons les sommets 0,1,2,3 
... Repérons les angles et les longueurs de chaque 
segment du tracé, par rapport au segment joignant le 
point de départ et le point d'arrivée. 








0 1 3 
Origine du 
era Longueur 
0 (=A(@)) 1/3 (=D(@)) 
1 (=A(1)) 1/3 (=D(1)) 
2 (=4(2)) 1/3 (=D(2)) 
5 (=A(3)) 1/3 (=D(3)) 
6 7 
5 8 
0 > e < = > 
2 3 
Origine d 
Sue d Longueur 
0 1/3 D(0) 
1 1/3 DD) 
2 1/3 D(2) 
3 1/3 D(3) 
4 1/3 D(4) 
5 1/3 D(5) 
6 1/3 D(6) 
TÉ SD CT) 
8 1/3 D(8) 





Ceci nous aide à comprendre ce qui se passe aux éta- 
pes suivantes de la fractalisation. Prenons l'étape 

2 de la courbe de Von Koch. Il y a 17 points et 16 
segments. Le dernier point n'a pas d'importance : seuls 


les 16 points de départ des segments seront importants. 


Numérotons ces 16 points en base 4 (= nombre de seg- 
ments de l'étape 1), par un nombre de deux chiffres 
(les deux chiffres sont fondamentaux et deux numéro 
de l'étape). 





Prenons un segment quelconque, celui qui commence par 
21 par exemple (c'est 21-22)..Les chiffres 2 et 1 
s'interprètent de la façon suivante 

2 signifie que le segment 21-22 de l'étape 2 provient 
d'un segment commençant par 2 à l'étape 1 (c'était 2- | 
3} 

1 signifie que le segment 21 de l'étape 2 (segment 
21-22) correspond à un segment commençant par 1 de 
l'étape 1 (segment 1-2), sur le segment 2-3 de l'éta- 
pen: 


Le dessin suivant sera peut être plus clair : 





0 1 3 


Une autre façon d'exprimer cela est de dire que, par 
rapport au segment joignant le point de départ au 
point d'arrivée, l'angle que fait le segment d'ori- 
gine 2-1 est 


A(2) + A(1) 
L valeur de rotation à la 2ème étape 
Valeur de rotation à la 1ère étape 
Quant à la longueur de ce segment c'est D(2)*D(1) 
(pour les courbes de Peano et de Von Koch, ces lon- 


gueurs sont les mêmes, quels que soient les segments 
considérés à une étape). 


Prenez d'autres exemples, d'autres numéros d'étapes, 
vous constaterez que, pour "fractaliser" un motif 
formé, à l'étape n° 1 de N+1 points, il suffit de 
connaître deux tableaux 


A(N) : angles des N segments 
D(N) : longueurs des N segments 


(par rapport au segment joignant les points de départ 

et d'arrivée, qui doivent être distincts). À la Kème 

étape, en numérotant les somments, sauf le dernier, 

par un nombre de K chiffres en base N, par rapport 

au segment joignant le point de départ au point d'ar- 

rivée, 

on tourne de A(N) + A(N) + + A(N) 

on a une longueur de : D) x D(U) æ ... x D(U) 
chiffres de la décomposition en base N 
du- numéro de l'origine du segment 

Voilà vous savez tout sur la méthode utilisée, mais 

certaines précisions sur le fonctionnement du program- 

me seront peut être les bienvenues. 


Après initialisations (lignes 1070 à 1110) le program- 
me principal appelle un menu (lignes 1180 à 1310). 





Courbe de Sierpinski 


TRACE N°7 - Octobre 1983 - 21 


Vous avez le choix entre : 


courbe de Von Koch 

courbe de Peano 

courbe de Sierpinski 

fractal défini par l'utilisateur. 


Dans les trois premiers cas, les lignes 1320 à 1390 
lisent le nombre de segments et les coordonnées-écran 
de leurs extrémités (data en lignes 2260-2290) nécés- 
saires pour tracer le motif de départ qu'on va frac- 
taliser. 


Dans le dernier cas (fractal utilisateur), 
1400-1760 demandent : 


les lignes 


1e nombre N+1 de points définissant le motif, 

le nombre d'étapes de fractalisation (2 à 4 compte 
tenu de la résolution du TRS... mais, même sur un 
Apple, on ne peut aller que jusqu'à 5). 

les coordonnées écran des extrémités des segments 
du motif. x varie de @ à 127, y de @ à 44 car la 
dernière ligne d'écran est réservée au texte. In- 
troduire une coordonnée négative permet de modifier 
les coordonnées précédentes (le programme demande 
donc de définir un N+lième point, pour rectifier 
éventuellement le dernier point). Le motif est tra- 
cé au fur et à mesure qu'on introduit les points. 
I1 ne s'agit que d'une version un peu modifiée d' 
un sous-programme utilisé pour déformer un motif 
en un autre (voir TRACE n° 5). 


Arrivé à ce point, que le fractal soit pré-programmé 
ou fixé par l'utilisateur, le motif est défini par : 


- le nombre N+1 de points du motif à l'étape 1. 
- leurs coordonnées-écran (tableaux X(N),Y(N)). 


Le programme convertit alors ces coordonnées en an- 
gles et longueurs (tableaux A et D, sous-programme 


1870-1990 appelé en ligne 1150. La particularité de 
ce sous-programme est de calculer les angles et lon- 


Configuration : 
Cassette ou di 


gueurs vrais alors que les x et y écran, sur TRS80, 

ne correspondent pas aux mêmes unités. D'où un coef- 
ficient 2 par lequel sont multipliés tous les y qui 

interviennent dans les calculs. 


Cela fait, le programme effectue la fractalisation 
proprement dite (sous-programme 2000-2180 appelé en 
ligne 1160 et appelant lui-même le sous-programme de 
décomposition en base N, lignes 2190-2250). Le numéro 
de chaque étape s'inscrit en haut, à gauche de l'é- 
cran. Le tracé terminé, ce numéro est remplacé par 

?? ce qui invite l'utilisateur à taper sur n'importe 
quelle touche pour passer à l'étape suivante de frac- 
talisation. 


Je vous donne en plus quelques exemples de fractals- 
utilisateur qui me semblent assez jolis : 


1/N=6 (0,44)(60,44)(30,18)(90,18)(60,44)(120,44) 
2/N=7 (0,22)(63,22)(63,2)(63,22)(63,42)(63,22)( 126,22) 


3/N=-6 (0,44)(42,44)(42,23)(84,23)(84,44)(126,44) 

H/N=4 (60,25)(60,20)(70,20)(70,25) 

5/N=6 (0,44)(63,26)(42,44)(84,44)(63,26)(126,44) 

6/N=9 (0,23)(63,23)(42,5)(84,5)(63,23)(42,41)(84,41) 
(63,23)(126,23) 

A vous maintenant de créer vos fractals... Ces "petits 

monstres" ne demandaient qu'une chose, se laisser ap- 

privoiser ! 


La procédure pour exploiter le programme peut être 
résumée ainsi : 


- Préciser le Memory Size selon votre configuration 
(voir TRACE numéro 5, page 28). 

Charger le programme SEGMENT. 

Modifier la ligne 210 selon la taille mémoire dis- 
ponible. 
Faire RUN. 
Charger le 
Faire RUN. 


programme FRACTAL. 





Utiiise 
1070 ‘ INTIALISATIONS CE 
1080 CLS:REM4O 
1090 CLEAR 100 : GEFINT I-K:l-Y 
1100 DIM X(20):Yi20t:4(20):D{(20 
1110 PI=3,.14159 : UiOI=1:REMNED 
APE PROGRAMME PRINCIFAL SC 
1130 GOSUR 1180:REM37 
1140 ON € GOSUR 1320: 1329071370: 
1150 GOSUR 1870:REHID 
1160 GOSUR ZOOC:REMEZI 
1170 FOR NET 10 200 : NEXT N © 
1180 “MENU 60 
1190 CLS:REMDE 
1200 PRINT TAB: 
1210 FRINT 
1220 FRINT d 
1230 PRINT FR 
1240 PRINT “ 3: 
ÉRtE M raleR es 
HÉBUN PRESS 
PARTCPEENTAEREE 
1280 AS=INÉETE: 
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REHS# 
j1Ut4)2REMSA 
1400: RENFÉ 

GOTG 1070:REMAZ 





ENTRE 5 :REMS7 
GCU":REMO4 
FE 
ISATEUR":REMED 
F1:1REMRES 


L 


- 


LESOUIF ts TT 00R 
1300 CeVAL(AS) : 
1310 RETURN:IREMS4E 
1320 ‘ FRACTALS PRE-FROGRAMMES D3 
1930 FOR I=i 10 C:iRENFS 

1340 READ N:RÈMES 

1350 FOR J=0 TG NEREMDÉ 

PSG EREAD CRIER Û 
1370 NEËT J'REMDD 
1380 NEËT I:RERC? 
1390 RETURN:'RENFE 
1400 ‘ MOTIF DEFINI P8R L'UTILISATEUR 83 
1410 CLSIRENFS 

1420 INPUT NOMBRE DE POINTE (32) ":N:REMF 
1430 IF N4&z=3 THEH 1410 ELSE Heh-i3: REMDC 

1440 INPUT “HOMBRE D'ITE S OÙ 43 °s:NF:REMDS 
1450 IF NF£&2 OR NF+4 THEN 

14680 CLS:RENMCS 
1470 FOR I=0 


mi E 
Œ 
1 
(rs 














. 
La 
O + 
CU Het 
En] 





mt 
m DE AO ve DES ILE PC 
“x : 
= | 


1520 GOSUR ë 

1530 PRINT STRINGS(60:3E)5:ER 
1540 IF XCI)£0 GR YII)£D THEN GCOSUE 1450 : GOTO 1480:RÈMES 

to TE K(1)>127 OR Yiliéé THEN 1480:REMRéS 

1560 IF IN AND K(T)=X(0) AND Y{li=Y{O) THEN I=l-i : GOTO 1580:R 


l 

e Qi pes EI 3 pu ft (T1 
cn] 

el EP QD dt | 


M “ut M 


î- 


Len 
1480 PRINT 4960: °FO s1+1: ABSCISSE X 7"3:REM8S 
1490 GOSUB 1770 : X(I)=VAL(B#):REMIC 
1500 PRINT 4960:STRINGS# (6032) ::REMIE 
1510 PRINT 8960: "POINT" l+i3 "ORDONNEE Y 7°: :REMSC 
D (E$ 
£0 32 


on 


1570 IF I£N+1i THEN COSUE 1600:REMES 
1580 NEXT:REM#47 

1590 RETURN:RENSS 

1600 " DROITE ALLUMEE FA 

1810 IF I1=0 THEN SET(X(Oi:viOi) s RETURN:REMSR 
1620 Didti=Kil-ii ss U(Si=Y(I-1) 3 U(3)=X(I) : Ut4)=Y(I):REM7A 
1630 U(Qi=i : W=USRIVARPTR(IU(OH )):REMEI 
1640 RETURN:IREMOO 

PS AMSNROTRENEPENCEE, 88 

1880 IF . Dee RETURNSREM#S 





RETURNIREMBE 
} : UC4)zYiI-1)} REMSE 





PCT Te TES 


5 H=USR(VARPTREU (DO) isREMNTÉ 
RERFO 

THEN SETIÉ(CO) :YEDO)) à RETURNIREMSS 
[ Ir Eee 


EME 
. Ho I 







ï 


[= 
LE 
Ju 
Le 
DE Lu bete et | es ne 
=] 
2 fe 


JO LM fe Li PO es OI 
me ( 
— 





A eu are pen fes fl ur 





QC EG RC M el ef et et el ef US Te 
D 44 Er Er M: 
1H ft fl 





O ä 
Û THEN BE 
THEN HS=LEFTS{BSLENCES)-14} : PRINT 9EC,3" “35: 


Eee AE cn He (0 HU es EI A CO 


Da cn TT EG 
RNA 


+1 3 PRINT GEC:4$83: : GOTO 1790:REMAD 


Et ble 
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La] 


1 De EN Be Cd Hd es CT 0 D 













CRT 


2 PRE] 


pu (AN ren Do Jeu] 


1 2 4 3 cl 
ds Fe Ms en 


RU 









pus UN RU Dee TT CD den TT ETS 
Tete HN OU TE 


TP te At ET tt 


pt Een Et Hit folie [ut pole fil el Lam pol joie 
Ce D PSS 


I M 0 0 0) AN 0) A A OC (OL 










A es A nc A D D | 


“Cr CE 
“MU Æ 





J 
[mal 
Ce 
Les. 
prit 
LA] 
TL 

| “| 

M OUR ur pet ef HE 4 me [| 
Al nn me PT MIT 





HZ 7 on SOU) CT EE RER EP NIES7 
Z2OSD CES RENE 
2040 PRINT aD0D:K3::REMSD 
2050 FOR I=0 TO NIK-1:FEMOI 
2060 R=I =: Ai=h »: Di=D'REMF2 
2070 GOSUB 21S0:REMSS 
2080 73=11+D1xC05(A1) : UCS)=INT(Z3+.5S)°REMSS 
2090 14=72-,SxDixSIN(AÏ) ? Ul4)=INTIZé+,S)2REMTE 
AMOTHETESU OR U(1)5127 OR U(23<€0 OR Ut2)547 OR UCI)<0 OR U(3 


Fu 135 


1>127 OR U O OR Ui4)i>47 THEN 21Z20:REMAE 

2110 U(D)= H=USR (YARPTRIU(O))):REM7F 

24120 U(1)=U(3) : U(2)=U(4) # Z4=2; 

2130 NEXT I:REND 

2140 PRINT 40» 5: 

2150 AS=INKEYS:IF AS 

2160 NEXT K:REMES 

2170 PRINT @0:"FIN"3::REMD4 

2180 RETURN:REMEZ 

2190 ‘ DECOMPOSITION EN BASE N 68 

2200 FOR J=1i TO K:REM27 

2210 G=INTIR/N) : 

=Ai+A(RA) : 
REMCA 


M en te | = 
La mue di CM pe pt pou 
j 


pal 








4 

Li 
3 

À 








D hf) ii; UE or RENE 

Dé N > ia re TT US EE EE 
LUTTER OR LE 45 
22090 DA FA EM NT ea RAR PTS NIUE Mn 
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enseignement 


Parler-vous 
un bon franssais ? 









Un test effectué par ordinateur prov 
chez les élèves une motivation certain 
Stimulation que seul l'attrait de la machin 


pour des élèves qui arrivent dans 
sionnelies avec des prérequits plu- 
n et sa présentation, 
t Son résultat et voir 
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sur l'écran les erreurs commises. Quant au professeur, 
il dispose en fin de test d'un synoptique général que 
seul l'ordinateur peut donner et qu'en aucun cas il 
n'obtiendrait avec les méthodes de corrections tradi- 
tionnelles. 


A PROPOS DU PROGRAMME 


L'entrée des données se fait par la fonction INKEY$ 
avec possibilité de corrections par retour arrière. 


Décomposition du programme : 


Lignes 10 = 140 : Initialisation. Entrée des nom 


ét prénom de l'élève. Présentation. 


— Lignes 150 - 340 : Déroulement général du test. Fonne reponse |! ! 
- Lignes 350 - 430 : Tableau des résultats. 
- Lignes 44O - 520 : Tableau général en fin de test 
d'une classe. 
- Lignes 530 - 620 : Entrées des réponses aux ques- er < £ 
re 53 P q Nota : Ce programme a été prévu pour un TRS80 doté 
- Lignes 630 - 710 : Entrées des données d'ordre gé- Fo ie nous Ces DER VQurS ue 
TRE sédant pas cette option devront entrer les caractères 
_ Lignes 720 - 790 : Appréciation des réponses. minuscules en mode SHIFT pour conserver une somme de 
- Lignes 800 - 810 : Temporisation. ae correcte avec le programme de contrôle VERCS. 
- Lignes 820 - 1040 : Phrases et solutions. k 
- Lignes 1050 - 1110 : Impression des résultats géné- Les lecteurs n'ayant pas d'imprimante pourront sup- 
raux. primer les lignes 520, 530, 1050 et 1110 et rempla- 
- Lignes 1120 - 1280 : Sous-programme de présentation. cer le contenu de la ligne 510 par END. 
D FF 
ed Test de francais UF E 
3 ° (C) 1983 Roger Henrotay et CE Pair 
CO FÜ 
5 Contisuration + modele 35 og modele 41 ! FE 
5 ‘ auec minyecules, 186 a 48k de RH. IEC 
7. Cassette ou disauette. tu 
B lnsrimante en option, NN VER 
3 D on ere mou or tem ee | mener ve | re | mme ere ven ue CuPe mes Len eue! ane nes mme ue ua nt tre cv ve ou Cu usant ue lan ie F7 


10 CLSECLEAR 1000:DIH 
20 GOSUE 1120: CLS:REMD9 





NOS(ZS)1PR$S(Z 


Choix .des verbes a mettre 3 la 3 eme personne de l'indicatif 


Enoncer  Frevoir — Relater = Emettre — Formuler = Exposer 
Raconter — Notifier - Divulguer — Annoncer — Confier — Dicter 
Transrettre — Communiquer — Rapporter — Reveler — Colporter 
Proferer - Avouer — Ordonner — Prononcer -:Predire - Declarer 


Bien des gens DISENT des betises. Le bon eleve sait de 


source sure que l’on raconte... une histoire 








S)2E$(2 


J)2F$(25) :REM3D 


30 PRINT à 134:"Choisissez dans la liste des verbes celui qui"iR 
EMDOC 

#0 PRINT à 326:'"convient le mieux et mettez-le a la 3 eme Ferson 
ne de 1] "REMAE 

50 PRINT à 5946: "INDICATIF PRESENT":REMIC 

60 PRINT 9 9i07"' ESPACE’ auand vous etes pret : "3:REM0? 

70 R$="":RS=INKEYS:IF R$="" THEN 7O0:REMS4 

80 IF RÉSHCHRSISEZ) THEN 7O0:REM23 

90 CLS:FOR K=D TO 23:E$(K)="":F$(K)="":NEXT:REMS3 

100 PRINT 9 266:""3::PRINT "Quel est votre nom : “3:REMSF 

110 GOSUR 4830: NOS (M) TRS : REHS4 

120 IF NOS(M)= "Fin OR NO$(M)= "FIN" THEN 44D:REMBA 

130 PRINT 4 é64:"et uotre Prenom : :2RERSF 

140 GOSUE 630:PRE&(MI=RSEREMS I 

150 REM À4 

160 CLS:IPRINT “Chois des verbes a mettre 2 l4 53 eme personne de 
l'indicatif s:RENMFS 

170 FOR X=0 TO 127:SET(X20):SET(X 2: 22) :NEXT:REMA? 

180 FOR ÿ=é8 Ti Z:SET(D: YIISET(I273 Yi: NEXTIREM9S 

190 PRINT à oncer —- Freugir — felater - Emettre - Formule 
F Exroser”* 

EOÛ PRINT à - Hotifier - Divulguer - âénnoncer - Co 
nfier - Dicter” 
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210 PRINT & 321; "Transmettre - Communiauer - Rarsrorter - Reueler 
- Colporter*: *REMCB 

220 PRINT à 385: Proferer - fuouer - Ordonner - Frononcer - Pred 
ire - Declarer"s:REMSS 

230 PRINT à 580:"Hien des sens DISENT des betises. Le bon eleve 

sait de‘:REMIS 

240 PRINT à 708:"source sure que l'on'3:REMCS 

2530 FOR K=i TO 23:REMIZ 

260 READ A$S:HI$:REM4S 

270 CS=LEFTÉ{HIi$r:4):REM7S 

280 DÉS=RIGHTS(H1S:2):1REMER 

290 GOSUR S40:REMNEB3 

300 GOSUR 720:REMA9 

310 PRINT à 911:STRING#(35:32):REM0? 

320 PRINT Q 730:STRING#(40:32):REMFD 

330 NEXT:REMSE 

340 RIM)=INT((R(M)/23) +100) :REME7 

350 CLS:PRINT' Tableau des resultats"!:PRINT.STRINGS(25:45) :REM0E 

360 PRINTTAB(10)"Reronse exacte":TA4R(30) "Votre repronse”:REM32? 

370 FOR K=0 TO I:REME6 

380 PRINT TAB(I10)ES$(K) 3 TAB(3O0)F#&(K):REMFD 

9390 NEXT:RENMFZ 

400 PRINT'Votre resultat est donc : ":R(M)"/100":REM9C 

410 PRINT'Voulez-uous un autre test : “3:REME7 

&20 GOSUR 830:REM31 

430 IF Ré$="o" OR R$&="0" THEN M=M+1:RESTORE:GOTO OSD:REME? 

440 REM:Resultats generaux sur ecran 81 

450 CLS:REMES 

460 PRINT"Tableau des resuitats":T8B(29) "General ":TAB(38)"Vocabu 

laire";:TAB(S1)" Condususicon"#REMDS 

470 PRINT STRIHNGS( bar:4850) :REMH4& 

480 FOR K=Q TO M:REMSS 

480 PRINT NGSCKTSITÉBCIS)IPRE(KISTABIASIRIKI I TAR(ATIGIKIITAE(S7IT( 

ÉH):RERES 

200 NEXT:BENMSS | 

510 FRINTEPRINT "ESPACE" si uous voulez imrerimer”"tREM6D 

520 GOSUE G:iREMNCC 


SD ENP TOMATE ENT 
















30 ELSE END:REMEF 


a40 J=i: PRINT NOR Rs 
330 BIS= sHSR=LERTSE( ):REM7S 
360 R4=TIRS=INKEVSSIF Ré= THEN SéO:REMS4 


3 

370 IF RÉ=CHRS(SZ) THEN RETURNERENE 
SE0 B2S=RTS+RSEIREN7? 
290 ReLENCEZS):REMAL 
600 PRINT à 729+J:R#::REMIE COMME 
B10 IF RS=CHRSIS Si THEN BZS=LEFTÉ(EZS 3: 1 j=J-3:RENOS 
BED J=i+1:GO0T0 SéO0:RENCS 
430 REM: Entrees de donnees C3 
à 0 ris :ÉEMEO 
Er X$=" SÉS=INKEYSSIF KXé="" THEN &SD:REMCE 
d60 IF KS=CHRSISE) THEN RETURN:IREMEI 
RÈZRÉ+ÉSEREMESS 
R=LENCRS) :RENT7S 
IF KS=CHRS(GS) THEN RS=LEFTSé(RS&IR-2) :RENMSÉ 
PRINT X$::REMDS 
GOTOQ 450:REMIN 
REHi: Calculs des bonnes et mauvaises FéFonses 6 
330 IF B2S=8R1$ THEN 780:RENSS 
740 IF CÉEHLEFTÉé(RT8:4) THEN PRINT 4 91i1:"Erreur: consultez un d 
ictionnaire"++#S(M)= Hiri:Goto FAT. BEMFE 

50 IF DSÉHRIGHTS(R26:5) THEN PRINT à 91i: Veuillez revoir uos c 
onjuguaisons"3:TiM)=T(M)+i:GO0TO 770:REMI0 








gr 


+ 9 Cr 


CNE 
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ee (D “0 CO 
DOC 


ER 
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760 IF LENCES)£>LENCEZS) THEN FRINT à 911:"Reuouez votre orthoar 
aphe”::GOT0 770:REMi9 

770 E$(I)=B1#:F$iI)=R2$:1=1+1:CGO0T0 EOÛ: REME3 

780 RIMI)=RCM)I+1:REMSE 

790 PRINT à 911:"Bonne reponse ! ! !°S52REMSE 

800 FOR T=1i TO SOO0:NEXT:REMEF 

810 RETURN: REM4 1 


Ée8 DATA E--- une opinion‘: 'emet":REM6D 

BST AID ei. cle un plan d'action‘: "expose":REME7 
HÉNSDOTA Eee eo une resle":"enonce":REN79 

SSD DTA PONS ru rue .. une histoire“: "raconte":RENSE 

GARE SDIS AS ES DO Er ee une auenture uecue :"relate":REMED 
HADRDÉ TOME er un souhait": "formule ":REM4F 

DHTMDOTOMEN- ST ner. une decision‘: "notifie":RENSS 

890 DATA ‘a.......... une nouvelle‘: "annonce":REM86 

000 DATA Cuscsssesss. Un avis”: "communiaue”":REM35 

910 DATA “d.......... un secret ”"s:"divulaue":REM35 

DA DÉEDARAMEE MEET lee se (UE) ordre": "transmet ”"2REM7C 

DRNÉDATÉ Res ses des critiaues":"rarprorte":REMS 
GUDMBATRET- cesse. ur comrlot*:"reusele":REM73 

bel ÉRES OO des rotins"r"colrorte":REM9E 

DÉUSDATÉAMI Rs les ee des menaces”"7'"rrofere":REMEA 

DADNDATOEPR enr .. un discours”: "rrononce"tREMOS 

DODAD AA TARN .- courrier a une secretaire”: "dicte":REMDé 
SONDE DÉATASS A eur se ses fautes": "auoue”:REMC3 

DO LNDOTO MAT Te ure attaaus militaire”: "ordonne":REMAC 
VOD TAMURE dectee. le proche auenir':"predit ":RENS# 

1020 Dâté "Pr........ le temrs des Prochains Jjours”:”"prevoit":REM 
RER 

OS SD DE NT ee este ee la guerre où son amour "7 decliare”":REMOE 
PAS HeDATA MEN .... Ses peines a Un ami 7 et REMF 1 

1050 REMtResultats éeneraux sur imprimante 1C 


1080 LPRINT'Tabhleau des resultats"; 0 
bulaire ST ee ison' :REN7 

1070 LFRINT STRINGS (80:45) :REMOG 

1080 FOR K=0 TO MiREMES 

1090 LPRINT NOS(K):TABCEODIPRS (KI I TABES7IR(KI EI TAB(S2)S(K) 5: TAR(70) 
TIKHI:REMES 

lIDONNEXTIREMES 

1110 END:'RENSS 

1150 REM:Prescentation dé 

1130 FOR X=1i TO 126:SET(X20):SET(X: 7) =NEXT:REMIT 

1140 FOR Y=0 TO 7:SET(O:Y):GSET (1287 Y) :NEXT:REMOS 

1150 PRINT à 72:"Test de vocabulaire et conjuguaison de verbes” 
: REM&# 

1160 PRINT à 2S546:"Ce test permet de Jjauger vos connaissances'iRE 
H75 

1170 PRINT à 404:"du point de vue des conjuguaisons":REM9O 

1180 PRINT à 592r"et de l'usage du verbe idoine”:REMES 

1190 PRINT à 6440:"Pendant l'execution du test il est °5:REMS4 
1200 PRINT à 936:"d'areuuer sur ‘ENTER’ ‘::REMS4 

1710 PRINT 9 788:STRINGS(55:32)13:REM38 

1250 FOR T=zi TO 100:NEXT:REMSE 

1230 PRINT à 788: "FORMELLEMENT interdit"3:REMFD 
1240 FOR IT=i TO 100:NEXT:REMSA 

1750 PRINT à 960:"'ESPACE Four continuer "3t:REM42 
1260 A$=""1AS=INKEYS:REMSS 

1770 IF 65="" THEN 1210:REM&E 

1280 RETURN:REMES 





Roger Henrotay 
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bricolage 


bre 








Des rubans sans fin 
(ou presque) 





Vous avez peut-être gardé les vieilles cassettes-ru- 
bans de votre imprimante, cassettes donnant une im- 
pression si pâle qu'elles donnaient... une pâle im- 
pression de votre travail et que bon gré mal gré vous 
avez dû remplacer. 


Le petit truc ci-après permet de recharger en encre 
les cassettes épuisées ét leur redonner une vigueur 
toute printanière en les régénérant et ce sinon éter- 
nellement tout au moins un nombre appréciable de fois 
d'où une économie non négligeable: 


La description qui suit a été testée sur les rubans- 
cassettes d'une imprimante "PRINTER VI". Mais il est 
certain à quelques détails près, que la même opération 
peut être envisagée pour les rubans de tout autre im- 
primante utilisant des rubans encreurs en cassettes 

ou même en bobines. 

Le matériel utilisé est simple et se trouve à peu près 
partout. 


Le principal est l'ENCRE qui doit impérativement être 
d'un type adapté : pour ma part, j'ai utilisé avec 
succès de l'encre à tampons sans huile, coloris noir, 
et de marque "PELIKAN", la référence portée sur la 
boîte carton d'emballage étant !K. J'avoue n'avoir 
pas essayé un produit similaire d'une autre marque, 
celle-ci ayant donné toute satisfaction aux premiers 
essais. Je me suis donc bien gardé d'en changer, en 
adoptant le principe... Le MIEUX est (souvent) 1! 
ennemi du BIEN. 


Le flacon encreur "Pélikan" à aussi l'avantage de com- 
porter un bouchon applicateur de la largeur du ruban 
ou presque, ce qui le rend directement utilisable, 
sans avoir recours à l'utilisation d'un feutre inter- 
médiaire, ce qui simplifie les choses. 


Pour réencrer, il faut faire défiler manuellement le 
ruban à l'aide du bouton moleté situé sur le côté 
droit de la cassette, en le tournant dans le sens des 
aiguilles d'une montre et en le maintenant devant l' 
embout du flacon placé en position verticale tout en 
pressant légèrement ce dernier. Je dis bien "légère- 
ment" sous peine de se retrouver avec de beaux pâtés 
sur la table de travail et ce qui est pire, avec de 
belles taches sur le bas de vos pantalons qu'un “omo! 
puissant (sinon sapiens) aura bien du mal à faire dis- 
paraître, l'encre en question ayant par nature une hu- 
meur de type particulièrement et résolument indélébile. 


Donc après avoir saisi la cassette d'une main et pla- 
cé le petit bouton moleté entre le pouce et l'index 

de l'autre, vous chercherez désespérément une troisiè- 
me main pour tenir et presser (délicatement) le flacon 
pour en faire sortir l'encre. Vous avez, bien sûr, la 
solution d'appeler un voisin complaisant, une épouse 
dévouée, ou votre secrétaire de service (on peut sans 
inconvénient intervertir les facteurs qualificatifs !). 
D'autres solutions sont possibles, sans déranger tous 
ces éventuels et dévoués collaborateurs. 


Pour ma part, voici celle que j'ai adoptée 

La cassette est serrée verticalement dans un petit é- 
tau dont les mors sont garnis de deux morceaux de feu- 
tre pour la protéger (ce n'est pas indispensable, mais 
prudent). Cela suffit, me direz-vous, car on à trouvé 
la main manquante de tout à l'heure. Oui mais on se 
lasse très vite de tourner entre les doigts nus le pe- 
tit bouton moleté surtout qu'il faut faire 380 tours 
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complets pour que le ruban défile entièrement (dans 
le cas de la cassette printer VI). Alors il faut con- 
fectionner une manivelle. 


Pour ma part, j'utilise une manivelle très courte de 
jouet "MECCANO". Sur l'extrémité de l'axe est serré 

un manchon d'accouplement d'axes (toujours Meccano) 

dont le trou d'un côté a été agrandi au diamètre du 

bouton moleté de la cassette, soit, toujours pour la 
Printer VI, à 6 mm. 


Voilà, il ne reste plus qu'à insérer le bouton moleté, 
en forçant légèrement, dans là manivelle et à faire 
défiler le ruban en tournant, tout en maintenant en 
contact le bouchon encreur du flacon et le ruban. Il 
faut environ 380 tours soit deux à trois minutes et 
le ruban est réencré. 


Deux remarques importantes : 

1) Le ruban a tendance lorsqu'il est garni d'encre 
fraîche à patiner : dans ce cas, il faut insérer dans 
le petit espace situé à droite du bouton moleté, en- 
tre le corps de la cassette et la pièce mobile un pe- 
tit coin en bois ou en carton. Pour ma part, j'utili- 
se un petit morceau d'allumette géante coupé en biseau 
au couteau. 


2) une fois le ruban réencré, il est recommandé de 
faire à nouveau 280 tours de manivelle mais cette 
fois-ci sans encrer, ceci au bout de quelques heures 
pour mieux répartir l'encre dans la totalité du ruban. 
En effet, le ruban est plié en accordéon dans la cas- 
sette et une attente même de quelque jours après l'en- 
crage et avant l'utilisation est souhaitable. Dans ce 
but, j'utilise plusieurs rubans que je garde en réser- 
ve après les avoir rechargés. 


On peut apporter beaucoup de perfectionnements à ce 
petit truc par.exemple, on peut envisager de faire 
un montage complet en fixant le flacon d'encre... et 
même motoriser le tout... 

Ah... j'allais oublier de vous dire... La première 
fois que j'ai utilisé le système, mes doigts ressem- 
blaient à ceux d'un écolier de 1925 utilisant un en- 
crier à godet et une plume "Sergent Major" (les jeu- 
nes, ceux plus près de 77 ans, me comprendront... et 
ceux, plus près de 7 ans, demanderont éventuellement 
aux autres de leur expliquer) ; alors il faudra dans 
ce cas, bien improbable car je suis sûr que vous êtes 
plus doués que moi, faire comme l'illustre Pilate et 
utiliser la pierre du même nom pour retrouver des "pa- 
luches" à peu près présentables. On peut aussi adopter 
la crème Ajax récurrente qui m'a donné de bons résul- 
tats. (Pub non payée !!) 


Les fabricants de rubans et autres vendeurs de casset- 
tes vont m'en vouloir et j'ai un peu honte à l'avouer, 
mais une cassette ainsi traitée permet le même temps 
d'utilisation à chaque recharge qu'une cassette neuve. 
À ce jour, une de mes cassette a déjà été rechargée 

11 fois sans donner aucun signe de défaillance du ru- 
ban ce qui est un hommage rendu à leur solidité. Un 
flacon d'encre (de 28 ml) permet environ 10 recharges 
(y compris l'encre perdue la première fois sur les 
doigts et ailleurs. Il coûte une vingtaine de francs. 
Quant à l'Ajax éventuel, vous avez toujours la ressour- 
ce de le prendre en douce à la cuisine familiale. 

Ii n'y a finalement que de petites économies. 


———  — — Jacques Dannenmuller 
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Vous avez lu TRACE n° 5, et le programme générateur 
de références croisées (pour le modèle 2) vous a cer- 
tainement intrigué, puis interessé,... mais ne dispo- 
sant que d'un modeste modèle 1 ou 3, vous avez à re- 
gret tourné la page. 


Repartons donc à zéro. 


Les références d'un programme BASIC sont les variables 
simples, les tableaux et les branchements (goto, gosub, 
etc.), lus dans le listing. Attention : les variables 
de plus de 2 caractères seront scindées. Ex : NCLE% 
donnera NC et LE%. 


Pour être utilisables, les références doivent être 
affichées sur l'écran, ou mieux sur l'imprimante, sous 
la forme d'un tableau trié, avec en regard de chaque 
item la liste, également triée des numéros des lignes 
concernées, 


Les références sont dites croisées lorsque les bran- 


chements sont précisés par les numéros de lignes 'sour- 


ce' et 'destination'. Si, par exemple, une sous-rou- 
tine est implantée à la ligne 1000, la référence GOSUB 
1000 sera suivie des numéros des lignes contenant ce 
branchement. 


Le descripteur des références est un prodigieux outil 
pour le "décryptage" d'un programme inconnu. Il est 
indispensable au programmeur, pour le remodelage d'un 
programme existant (même s'il en est l'auteur !). 


Comment utiliser le programme ? Quel est le matériel 
requis ? 


Tout modèle 1 ou 3, niveau 2, 16 K ou plus convient. 
La disquette est souhaitée mais non indispensable. 
Par contre l'imprimante est pratiquement nécessaire, 
sinon il faut se résoudre à recopier le texte affiché 
à l'écran... 


Pour commencer, il faut charger le programme à analy- 
sèr, puis chaîner ou fusionner le descripteur des ré- 
férences que nous appelerons CREF/TXT. 


Les utilisateurs de disquettes ont déjà compris qu'il 
suffit de faire LOAD pour le programme à analyser, 
puis MERGE 'CREF/TXT' qui aura été sauvé en ASCII. 


Les adeptes de la cassette trouveront les instructions 
nécessaires dans TRACE n° 4, à la page 21 pour le mo- 

dèile 1 et la page 24 pour le modèle 3 (fusion de pro- 

grammes BASTC). 


La première ligne de CREF/TXT porte le numéro 64000, 
afin d'éviter les collisions avec les lignes du pro- 
gramme à analyser. 


Cela fait, vous tapez RUN 64000 et le message suivant 
apparaît à l'écran : 


* 2272 REFERENCES maximum 

(e=ELSE, g=GOTO, r=RESUME, s=GOSUB, t-=THEN) 

DEPUIS LA LETTRE (A MAJUSCULE), JUSQU'A (z minuscule) 
AC, 

FAUT-IL IMPRIMER (O/N) ? O 

NOM DU PROGRAMME ? - 


… (II) : 








—————— 


1808 181€ 1309 1540 1968 


[a 
D 


1838 1848 1868 


À 
Â$ 
ei 

LS 
ff 
B$ 
C 
C5 
D 
D 
vi 
D 
DY 
EC 
I 


1488 1499 1518 1520 1548 
1662 1679 1688 1788 


Le nombre maximum des références dépend de la taille 
mémoire et de la longueur du programme. 


La ligne suivante décrit les abréviations mnémoniques 
(lettres minuscules) des branchements. 


A la troisième ligne on vous demande d'entrer deux 
lettres. Si vous répondez A,z toutes les références 
seront recherchées et éditées (Un simple <ENTER> don- 
ne le même résultat). 

Pour A,Z les branchements seront ignorés. 

Pour a,z seuls les branchements seront édites. 

Pour J,J seules les références des variables dont 
le nom commence par J sont reconnues, etc. 


En général, il suffit de taper <ENTER> et tout se pas- 
se bien si la taille mémoire est suffisante. Sinon 
vous serez stoppé par un BS ERROR en cours de lecture, 
et vous relancerez le programme pour réduire le nom- 
bre de lettres à référencer. 


A titre d'exemple nous avons pu analyser les plus 


longs programmes de TRACE n° 4 (7 à 8 K) en deux pas- 
ses maximum : A,Z puis a,z (sous niveau 2, 16 K !). 


Sous disk-basic H8K, l'utilitaire de Tandy TEST2/BAS, 
de 14500 octets et 1280 références a été décodé en u- 
ne seule passe. 


En prime, la longueur du programme est écrite au bas 
du tableau. 


En fin de programme, vous devez répondre à la question 
UN NOUVEAU RUN 64000 (O/N) ? 


Si vous répondez N=non, CREF/TXT est effacé, et seul 
subsiste en mémoire le programme utilisé. 


I1 faut aussi signaler quelques rares anomalies : 

1) La variable AS n'est pas reconnue (BASIC disque) 

2) La ligne ÿ n'est jamais mentionnée parmi les numé- 
ros de lignes. 
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3) Les espaces ne sont pas admis entre le nom d'un 
tableau et la parenthèse ouverte qui suit. Par e- 
xemple, DIM US (5) sera repercuté par US au lieu 
de US( 

Une instruction du type X!=2E6 répercute X! et Eb 
De même DD#=3D17 donne DD#et D1. 


ns 


Le 


CREF/TXT est construit autour de trois modules super- 
posés : 

D'abord la lecture du programme, avec la recherche des 
variables et des branchements, et leur mise en fiche 
dans F$() en même temps que le numéro de ligne dans 
F(). La vitesse de lecture et de traitement est de 19 
à 12 octets par seconde. 


Ensuite vient le tri vertical et alphanumérique de 
toutes les références. La durée du tri est évidemment 
très variable... Il s'agit d'un tri BASIC dit rapide 
(num !) ; vous pouvez avantageusement le remplacer par 
une routine binaire (voir TRACE n° 3, page 52). 


Enfin les références sont affichées à l'écran et éven- 
tuellement par l'imprimante, après un tri numérique 
(tri horizontal) des numéros de lignes concernées. 

Ce tri est éliminatoire, c'est-à-dire que si une va- 
riable est redéfinie plusieurs fois dans une même li- 
gne, ce numéro de ligne ne sera écrit qu'une seule 
fois. 


64000 * O6 


Le format d'édition sur l'imprimante est prévu pour 
80 caractères maximum par ligne. Pour changer le for- 
mat il suffit de modifier le contenu de la variable 
LL=89 à la ligne 64960. 


Il est bien évident que vous tenterez d'abord de ré- 
férencer CREF/TXT, et cela ne marchera pas parce que 
la lecture s'arrête à la ligne 64909. Ce point d'arrêt 
est défini à la ligne 6496@ par XF-64900. 


Vous procéderez comme suit : 
Après le lancement du programme, à la question : 
A PARTIR DE LA LETTRE... ? 
vous répondrez < BREAK > puis <CLEAR> et vous taperez 
la sentence : 
XF=79009 : CONT <ENTER> 


Le reste n'est plus qu'un jeu d'enfant... 


N'oubliez cependant pas de faire un CSAVE ou un SAVE, 
avec l'option ASCII, avant le premier RUN ! 


La liste du programme CREF contient des textes en ca- 
ractères minuscules. Les lecteurs ne possédant pas 
cette fonctionnalité devront frapper les textes cor- 
respondants en appuyant sur la touche SHIFT s'ils veu- 
lent conserver le "checksum" correct (Ndlr). 


64010 ‘ CREF/TXT - (C) Roser Brousmiche et TRACE FC 


84011 ” Configuration de base : 


64020 ‘ F2 
64030 CLEAR 50 : CLEAR MEM/3 : 


nodele 1 avec minuscules FR 
BD? 


DEFINT I-L : I=MEM*x.,11:REM59 


b4040 CR$="( e=ELSE: g=GOTO: r=RESUME; s=GOSUB? t=THEN )":REMD3 


64050 L1=0 : L2=0 : L3=0 : I11=0 


:REMB3 


64060 XF=64000 : R=65534 : 5=32768 


DIM FSC PU) AE T0 52714720) 


: LL=8D:REM78 


64070 CLS : PRINT "#"I"REFERENCES maximum." : PRINT CR$:REMA2 
64080 PL$="A" : DL$="z" : INPUT°DEPUIS LA LETTRE <A MAJUSCULE} 
JUSQU'A <z minuscule} "3PL$:DL$:REME9 


64090 INPUT "FAUT-IL IMPRIMER (O/N) 


:REMBE 


“sPp$ s IF P$<>"0" GOTO 44120 


64100 INPUT'NOM DU PROGRAMME "3N#:REMFE 


64110 ‘###xkx LECTURE 98 
64120 PRINTG 3207"JE LIS :°3 3: 
ÀS 


A=PEEK(16548)+PEEK(16549)#256:REM 


64130 D=A+1 : GOSUB 64810 : B=PEEK(A)+J+2586 3 IF C>=XF OR B=0 TH 


EN 64350:REMDA 


64140 D=A+Z : GOSUB 64810 : C=J 


&8:REM3D 


84150 IF B-83260 THEN B=EB-R:REMEÏ 


64160 FOR D=Â+4 TO B-2 : B#="" 


684190 IF J=149 : B$="e" : GOTO 
84200 IF J= 141 1 B$="sa" : GOTO 
642710 IF J=145 : B$="se" : GOTO 
64220 IF J=202 : B$="t" : GOTO 
84230 IF J=157 E$="r" 3: GOTO 


D=A+3 


GOSUE 64810:REMD4 
84170 IF J=34 GOSUEB 64600 : GOTO 64330:REMEF 

04190 IF J= Si OR J=1386 : D=E-2 GOTO &4330:REM20 
b&&3D0:REMI4 
£&830:REMID 

64 830:REMFé 
b4B30%REMF À 
bë&&3D:REMDE 


GOSUR 44810 C=C+J+25 





84240 IF 41433 oR J590 THEN 484330:REMDD 
64250 IF J}b4 AND J<71 AND LENCES)£2 COSUB 64800 : GOTO 642S0:RE 


MER 
64280 IF E$="A5" 


b#280 IF J347 AND J 
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: D=D-1 : GOTO 64330:REMOZ 
64370 IF LEN(E#)=0 THEN 64330:REMEF 


84290 IF J=40 OR 1-37 OR J=33 OR J=35 OR J=36 GOSUE 64800:REMDS 

84300 IF J=40 AND RIGHTS(H#:1)4€3>°(° GOSUE 64800:REMSF 

64310 ÀAS=LEFTÉCES: 1) 5 IF ABEPLE OR ASÈDLS THEN D=b-1 : COTG 8643 
JO:REMIS 

64320 K=K+1 5 FCK)=C 3 F$CK)=BS$S : PRINT à 413:C:BS$:K35CHR#(30) : 

D=D-1:REMD7 

84330 NEXT D : GOSUB 64840 : GCOTO 641930:REMSA 

64340 ‘+x####x CALCUL LONGUEUR PROGRAMME Bi 

64350 E=D : IF E<0 : E=E+R:REM/D 

b&360 E=E-PEEK(16548)-PEEK(18549)#256+4 2 IF B : E=E-B:REMI1 


64370 ‘+xxkæekxx TRI VERTICAL 93 

64380 1G=1 : L=K : BS="" : PRINT à S127"JE TRIE :'";:REM2B SOMME 
b4390 IF L£=I1G THEN 64470:REN9A ER 
64400 B$=FSCCIG+L)/2) 2 IzIG : J=L'RENFSé TR 
b4&10 IF FSCI)<RS : I=I+1 : GOTO 64410:REM37 Der 
84420 IF Fé(J)rBé : J=])-1 : GOTO 64420:REM2ZA rare 
b4430 IF 15J THEN 6&4S50:REMS# 

bhk&D GOSUR 64490 : D=F(I) 2: F(I)=F(J) : F(J)=D # I=Il+i : J=J-1 

5 IF I<=J THEN 64410 ELSE PRINT à 607:F#(1):CHR$(30):REMF9 

644S0Q IF I£L 3 IP=IP+4 = I(O:IP)=I : I(1:1P)=L:REM38 

64480 L=J : GOTO 64390: REMDI 

64470 IF IP=0 THEN 64530:REM36 

bkk80 IG=I1(0OrIP) : L=I(d1rIP) : IP=IP-1 : GOTO 64390:REM39 

bh&9DO Li=VARPTR(IFS(I)) : L?2=VARPTR(FS(J))2:REMII 

Eu FOR L3=0 TO 2? : I1=PEEK(LI+L3) : POKE Li+L3»PEEK(L2+L9):RE 
64510 POKE L?+L3:14 : NEXT L3 : RETURN:REMDA 

64520 ‘+x#xxxx APPEL DES AFFICHAGES FC 

64530 IG=K ? 1=0 : FS="#H##H#H#" 2 IF P$="0" GOSUR 64670:REMEE 
b454D K=i 2: I=Ii+1 2 IF 131G GOSUB 64700 : GOTO 64890:REMIE 

64550 PRINT F#(I):TA4BR(6)3 : GOSUR 64880 : Fi{(K)=F(I):REMCZ 

64560 IF F$CI+1)=F$CI) 3 I=l+i : K=K+1 : Fi(K)=F(I) : GOTO 64560 
2REMSA 

64570 GOSUB 64740 : PRINT : IF P$="0" LPRINT:REMF4 

64580 GOTO 64540:REM30 

64590 ‘+xxxxxx TRAITEMENT GUILLEMETS Bé 

6#600 D=D+1 : GOSUB 64810 * IF (J<734 AND D£=H-2) THEN 64800:REM 
41 

64610 RETURN:REMI0 

64620 ‘+###4##x TRAITEMENT GOSUBR: GOTO: RESUME: THENY ELSE 98 
64630 D=D+1 : GOSUB 64810:REME&S 

64640 IF J=37 THEN D=D+1 : GOSUB 64810 : GOTO 64440 ELSE IF (J34 
7 AND J£58) GOSUB 44800 : GOTO 646840:REMBE 


64650 IF LEN(ES)=1 THEN B$="" : GOTO 64170 ELSE 64310:REMSC 
b&66D ‘+#####x IMPRIMANTE 70 

6670 LFRINT "REFERENCES de "Né : LPRINT CR$ : LPRINT” * : RETUR 
NIREMRE 


64880 IF P#$="0" LPRINT USING" L':F$(1): : Ki=6:REMBA 
64690 RETURN:REMCO 
64700 PRINT N$ ” occure” E "octets en memoire vive.":REM9D 
64710 IF P#$="0" LPRINT “ ” : LPRINT N$ ” occure” E “octets en me 
moire vive." ?: LPRINT * ":REMDI 
44720 RETURN:REMA2 
64730 ‘xxx+kxx TRI HORIZONTAL ET &FFICHAGE ZA 
84780 A=-1 : FOR J=0 TO K-1 : L=Jj : FOR Li=J+1 TO K « IF FitLi)i= 
Fitli : Fi{Li)=A:REMéEC 
64750 IF Fi(L41)€Fi(L) : L=Li:REMSO 
L47o0 NEXT Li 3 D=FitL) : Fitl)=Fitj}) : FitJ)=D : NEXT J:REMFC 
ÉÉTTE NE OR JO HO UTP RTC ARA PRININ EM CINE AOTE P#="0" LPRINT 
TAB(K1) USING F#3F1(J)1: : GOSUE 64860:REM2A 
b4780 NEXT J : RETURN:REMSA 
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64790 ‘*xxxxxx TRAITEMENT REFERENCES ET AJUST. 


ENPEERSSET 





64800 B$S=B$S+CHRS(J) : D=D+1:REM4E 

64810 IF D£S THEN J=PEEK(D) ELSE J=PEEK(D-R):REMF? 

84820 RETURN:REM3D 

64830 ‘#x#xxxx AJUST. ENTIER ET TABG ) IMPRIMANTE C5 
84840 IF B£S THEN À=B ELSE A=B-R:REMS8 

84850 RETURN:IREMIF 

64860 Ki=K1+6:IF K1ÈLL-6 LPRINTIKI=6:REMES 

684870 RETURN:REMOR 

64860 ‘+xx#xxs FIN DU PROGRAMME 93 

64890 8$="" : INPUT'UN NOUVEAU RUN 64000 (0/N) ":3A$:REM9Z 
64900 IF A$="0" THEN RUN 64000 ELSE IF A$="N" CLEAR 50 : DELETE 
64000-64910 : END:REM14 

84910 GOTO 64890:REMDD 





utilitaire 


Roger Brousmiche 








ini-Zap deviendra grand 


Qui n'a pas entendu parler de SUPERZAP ? Il s'agit 
d'un programme utilitaire livré avec le système d'ex- 
ploitation NEWDOS qui, entre autres choses, permet de 
"voir" les informations telles qu'elles sont sur la 
disquette. Le système standard TRSDOS livré avec le 
modèle 3 ne permettant pas une telle possibilité, 


voici une petit programme qui remplit deux fonctions : 


lire et afficher le contenu d'un secteur sur l'écran 
et éventuellement le recopier sur la seconde unité 
(naturellement, nous attendons avec impatience qu'un 
lecteur nous propose une extension permettant l'édi- 
tion du secteur lu ! Ndlr). 


MINIZAP est composé de deux programmes : l'un est en 
BASIC et l'autre en assembleur. Pour cette dernière 
raison, il est conseillé de posséder l'éditeur-assem- 
bleur EDTASM (le lecteur intéressé par la lecture des 
secteurs d'une disquette se doit de l'avoir dans sa 
panoplie...). 

Le programme objet doit obligatoirement être sauvé 
sous le nom "MINIZAP/CMD". Cela étant fait, il suffit 
de lancer le programme BASIC sans se soucier du MEMO- 
RY SIZE (effectué automatiquement). Les adresses d' 
implantation sont prévues pour une configuration de 
48 K octets de mémoire vive, ce qui est implicite 
avec des disquettes. 


Une fois le programme lancé, un message s'affiche : 
DRIVE, PISTE, SECTEUR ? 


Si le numéro de piste introduit est égal à zéro (la 
première piste portant le numéro 1), alors le numéro 
de secteur est relatif au début de la disquette. Dans 
le cas contraire (no piste différent de 0), le pro- 
gramme calcule lui-même l'adresse du secteur (piste 
* 18 + secteur) et en affiche le contenu sur l'écran 
avec les mentions : SDP (secteur dans la piste), PST 
(piste), DRV (drive) et SDD (secteur dans la disquet- 


te). Les commandes autorisées sont les suivantes : 

<;> : affichage du secteur suivant 

<-> : affichage du secteur précédent 

<X> : retour à "DRIVE, PISTE, SECTEUR ?" 

<E> : le secteur lu sur le drive 0 est écrit sur le 
drive 1 à la même position 

<S> : Sortie et retour au BASIC 


MINIZAP utilise les adresses des routines d'accès 
disque décrites dans la documentation du manuel Tan- 
dy. La routine DECOD à été prise dans le livre "La 
pratique du TRS80", volume 2. Le programme assembleur 
est abondamment commenté afin de permettre à ceux qui 
le désirent de faire mieux, et pourquoi pas, de re- 
faire SUPERZAP sous TRSDOS ! 


D ———————— FF 
FACE MÉATANRIEZE ADP be TE 
Sue EL 
4 Configuration : modele 3 Dee 
d 48 K: DISQUE IFR 
Bb Fâ 
7 * (C} 1983 Louis Martin & TRACE Dons) 
Bt F8 


10 CLEBR 1000:REM7D 





20 POKE 14561:£8H60:REM38 
30 POKE 18562: 8HER:REMOD 
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40 CMD'"L":"MINIZAP/CHD":REM3E 

50 DEFUSRI=6HEAGO! A=USRI(O) :REMSÀ 

80 CLS:REM4#O 

70 INPUT "DRIVE:PISTE:SECTEUR"3D;P:S:REMDI 

80 GOSUE 300 : GOSUB 330:REM2B 

00 P=P+INT(S/18)2REMRAF 

100 S=S-INT(S/18)+18:REM8S 

110 GOSUB 300 : GOSUB 330:REMOD 

120 POKE &HE706:D : POKE &HE7103P : POKE &HE71i176:REMCC 
130 GOSUB JSO:REMSS 

140 DEFUSR1=&HER&C: A=USR1(O) 2REMCD 

150 PRINT "SDP”: : PRINT à@64:53:REMO2 

160 PRINT3 : PRINT @192,"PST"3; 3: PRINT à4256:P5:REM89 
170 PRINT; PRINT 9384:'"DRV"3 : PRINT @448:D::REM9D 
180 PRINT: : PRINT 4576r"SDD"3 : PRINT à640:545:REMS7 
190 AS=INKEYS : IF A$="3" THEN 2S0:REMSC SOMME 
200 IF A$="-" THEN 260:REM9C 


Ô 
210 IF A$="E" THEN 270:REM79 na NS 
220 IF A$="S" THEN 280:REM6O nn 
230 IF A$="X" THEN RUN 60:REMF7 Qe 


240 GOTO 190:REME9 

250 S4=54+1 : GOSUR 290 : GOTO 80:REM9D 

760 54=54-1 : GOSUR 290 : S=6-2 : GOTO BO:REMCF 
270 POKE &HE706r1t : GOSUR 290 : S=S-1 : GOSUB 350 : GOSUE 300 
DEFUSRI=8&HEAF6: A=USR1(0) : GOTO 190:REM73 

280 DEFUSRI=&HEARF: A=USR1(0) : END:REM77 

290 S=PEEK(&HE7DA) : RETURN:REMS8 

300 1F 54<0 THEN P=39 : S=17:REM92 

‘310 1F 543719 THEN S=0 :| P=0:REM8D 

320 RETURN:REM2D 

330 54=P#18+S:REMB1 

340 RETURN:REMI9 

330 POKE &HE70A:S:REMI6 

360 RETURN:REMOS 


MINIZAP/CMD" 








E70R 03 00120 DEFE G3H 

4424 00130 OPEN EGU à874H 

D5DS 00140 INPUT E&L O5D5H 

#409 D0150 ERFROR Eau 4405H ; 

4436 00140 REA EaLi 4&3EH 5 

k439 00170 WRITE EQU 4435H 3 

4428 D0180 CLOSE Eau 4438H ; 

EA&D ü0180 ORG CER&OH 

EA6&D CDE4EA 00200 DEBULT CALE INIT 

EA&3 O4600 09%10 LD B:0 

Eñés CD7444 00220 CêLll GPEN ; quue! 

EA&S CIERER 00230 JP NZ:FAUTE ; si 1 se passe mal 
FA&B C9 00240 RET 5 

EA4C SEFF 0025 LD B:0FFH 3: 

EA&E 320CE7 00240 LD {OE70CH) :A 

EA71 CDE4EA 090279 CALL INIT 

EA74 CD3644 00280 CALL BE8&D : À secteur disaus --i buffer 
EA77 2077 00:90 JR NZ3:FAUTE 3 =1 lecture ce pacse mal 
EA7S On 00300 NOP ; 

FA7A Chce01 09310 CALE 1C7H ; effacement de l'ecran 
E&7D 3E00 99320 LD 8:0 3 Îere ligne ecran 
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EAB7 C5 
EABB CDCBEA 
EA8BB Cain 


EAE7N2133E7 


EAF3 C31914 
FRS SMIONE 
BARRNCDEREE 





Eñé 


00330 
00340 
00350 
60360 
00370 
00380 
900390 
00400 
06410 
00420 
00430 
09440 
00450 
00460 
00470 
00480 
090490 
OOSO0 
00510 
0052 

0053 

00540 
0055 

00840 
0057 

O0SE0 
00570 
00600 
00610 
00620 
00630 
00440 
00650 
00660 
00670 
DCés0 
006970 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
06780 
00790 
06890 
00819 
00830 
00230 
06840 
008350 
00860 
00870 
DN880 
nn890 
009500 
00510 
0092 

900930 
00740 
00950 
00669 
00770 
00589 
00999 
91000 
01010 
01620 
91050 
Din40 
016350 
D1080 


00000 TOTAL ERRORS 
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BCLO 


BCLi 


BCL2 


POINT 
CONT 


AFFICH 


INIT 


FAUTE 


E:10H ; 
DE :3C05H 
HL:0E733H 
BE 

BFFICH 


æ 
ei 
DSi Peas deu de du d 0u 


BC;:-10H 


C>POINT 
SDH 
CYCONT. 
ñ:ZEH 
(BETA; 
PE ; 


ans 
(F3 
m 
En) 
[æ 
CTP CRC TE CENTRE CEE CENTER CE TE 


INIT 
CLOSE 


un un us ue un un 0 


DFH 
DECOD 3 
AF ; 
A:90H : 


8: 40H 


48 ue se 


(PE) 
DE ; 
DE:0E700H 
HL:0E733H 


80H 


ERROR 
CLOSE 


WRITE 


NZ7FAUTE : 


BEBUT 


. 
7 


7 


compteur boucie ECLO 
Fointeur ecran 

5; Pointeur buffer du FCE 
sauvegarde comrteur E 
affichage no de ligne 

no de ligne suivante 
sauvedarde registre À 
avance Pour un blanc 
compteur BCL1 

À car du buffer dans À 
et affichage 

adresse car suivant 

car suivant dans À 

et affichage 

pour prochain Fas5sase 
avance un blanc 

boucle pour 8x2 car 
retour arriere de 16 car 


compteur BCLZ 

1 car dans & 

voir si car est imrrimable 
sinon: le renmrlacer: 

par un Foint 

a l'affichage 


affichages du car 
position suivante ligne 
position suivante buffer 
suite 
ajoute 3 
Passer a 


a DE pour 
12 ligne suis, 


no de ligne dans À 
comsteur dans E 
suite boucle BCLO 


fermeture FCE 
si fermeture se passe mal 


effacement quartet faible 
quartet fort prend la: place 
du auyartet faible 


8 reprend sa valeur d'entree 
effacement auartet fort 


À reprend <a valeur d'entree 


en sortie: à contient Île 
code ASCII du car au'il 
contenait en entree 


affichage du car dont le 
code ASCII vient d'etre 
calcule et avance 1 position 


affichage code erreur Far 
13 routine DOS 

fermeture du FCE 

retour au BASIC 


ecriture d'un secteur disque 
si ecriture se passe mal 


Louis Martin 









Æ 





L 


Ce programme, inspiré d'un jeu appelé “black box", 

ne fait pas appel aux réflexes comme on pourrait le 
penser mais à la réflexion et aux réflexions ! Il se 
joue sur une grille de 8 par 8 dans laquelle sont 
dissimulés des obstacles. Selon la difficulté recher- 
chée, vous pouvez choisir leur nombre entre 3 et 9. 
Ils ne peuvent être situés sur les bords de la gril- 
le que si ce nombre est supérieur à 5. 


Le but du jeu est évidemment de retrouver ces obs- 
tacles et pour cela, vous avez deux moyens : utili- 
ser la commande R pour donner le numéro de la case 
contenant l'obstacle suspecté (mais encore faut-il 
en être sûr !}), ou bien tirer un projectile au début 
d'une ligne ou d'une colonne par la commande T. Ce 
projectile ne détruit pas l'obstacle mais, selon son 
comportement, il peut vous préciser où se trouve ce- 
lui-ci. En effet, lorsqu'un obstacle est placé sur 
la ligne ou la colonne de tir, le projectile est 
tout simplement absorbé (noté ABS sur l'écran). Si 
par contre, l'obstacle est situé sur une ligne ou + 
une colonne voisine, le projectile est réfléchi (dé- 
vié à 90 degrés). S'il rencontre un autre obstacle, 





il sera absorbé ou dévié de nouveau... et il se peut 
ainsi qu'il revienne à son point de départ ! Avec un 
peu de réflexion... on peut déterminer à coup sûr 
l'emplacement obstrué. 


_ | 
| = mise en boite 





La réflexion 





EE 


(9 OBSTACLES > Ur Se 93 U1 95 % U4 U3 


ESSAI NUMERO 4 REUSSI 
TOTAL DES POINTS : 188 (+25) 





Sur l'exemple ci-dessus, le premier tir (ligne 50) 
est absorbé par l'obstacle situé en 53. Le second 
tir (ligne 40) est réfléchi par l'obstacle 53 puis 
absorbé par 22. Dans les deux cas, l'affichage ABS 
clignote (ces tirs ne coûtent pas de points). Enfin, 
le troisième tir (colonne 60) marqué Ti, se réflé- 
chit puis sort en 92. L'affichage clignote : Ti à 
l'entrée, U1 à 1a sortie. 

Pour ‘“essayer'" une position (53 dans notre exemple), 
on utilisera la commande R. Vous disposez de 8 tirs 
"gratuits" au-delà desquels vous perdez 20 points 
par tir. Chaque obstacle découvert rapporte 25 points 
mais chaque essai manqué en coûte 10. Si vous trou- 
vez tous les obstacles en utilisant moins de 8 pro- 
jectiles, chacun de ceux qui restent donne un bonus 
de 15 points. 

La commande B permet de matérialiser ou d'effacer 
une marque placée à une position donnée de la grille, 
pour repérer un point suspect, par exemple (ne coûte 
pas de points). La commande S permet de supprimer un 
obstacle déjà découvert mais devenu gênant. Elle ne 
coûte pas de points mais ne peut être utilisée qu'une 
seule fois. Enfin, la commande À que vous n'utilise- 
rez probablement jamais (n'est-ce pas ?), permet 
d'abandonner le jeu et de découvrir les obstacles 
cachés. 


A titre indicatif, le meilleur score réalisé par 
l'auteur est de 260 points (9 obstacles découverts, 

3 projectiles inutilisés et 1 essai manqué). 

Mais avant d'y réfléchir, absorbez-vous d'abord à 
entrer ce petit programme (non, il n'est pas long !). 
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I Configuration d'essai : modele 1: niveau ?: 46h #8 EF 

e (C) 1982 TRACE et Roser Sawicki #*% FE 

3 RANDOM : CLS : DEFINT A-Y : DEFSTR Z : DIM A(99):REMSA 

& INPUT *COMBIEN D'OBSTACLES ( 3 A 9 ) “:N:REMAD 

9 IF NÈe OR N£3 THEN 4:REMES 

8 IF Nÿ5 THEN R=1:REMFZ 

7 CLS = FOR I=1 TO 8 : FOR J=1 TO 8 : A(10xI+J)=1:REMI4 

8 NEXT J?I # E=N : FOR J=1 TO N:REMFA 

9 U=RND(6G+24R)+1-R : V=RND(G+24R)+1-RIREN?T 

10 I=10%U+V 3 IF AI)=1 THEN A(I)=9 : NEXT J ELSE 9:REMCO 

11 FOR I1=34 TO 116 : FOR J=é6 TO 30 STEP 3:REM49 

12 SET(I:J) : NEXT J:I1:REMEI 

13 FOR 1=38 TO 114 STEP 10 : FOR J=7 TO 2G:REM90 

14 SET(I:Jd) 2: NEXT J:1:REMDF 

15 FOR I=1 TO 8 : J=64xl : K=S+xI : PRINT à477+J:2*K3::REM46 

16 PRINT @123+]),2#K+93: : PRINT G/78+K:13::REM3S 

17 PRINT Q718+K790+13 : NEXT I : Z="ESSAl":REM323 

18 PRINT à@073 : PRINT G64:"BLANC": : PRINT d128;:"( EH )"::REM&S 
19 PRINT Q192775 : PRINT 42567 "REEL"3 : PRINT 63201" R )"3:REMF 


20 PRINT 9385,"TIR"3; : PRINT G449"( T )"::REMA4 
21 PRINT 97617 "TOTAL DES POINTS =: "::REMS7 

22 PRINT d704;"{":;N:5" OBSTACLES )"3:REMB9 

23 IF T<8 THEN Z6:REMCé 

24 PRINT 9384;"VOUS": : PRINT 6448 "N'AVEZ"3; : PRINT 951?: "PLUS" 
3:REMSA 

23 PRINT 9576:"DE"3 : PRINT @640:"PROJECTILE"::REMBD 

26 I=INKEYS : IF Z="" THEN 26:REM80 SOUME 
27 IF Z="A* THEN 71:REM70 


Vo, 
28 FOR I=1,T0 40 : PRINT ä896+1,° “3 à: NEXT I:REMS3 | L°Pacs 
29 IF Z="B" THEN 34:REMGE de ; 
30 IF Z="R" THEN 39:REM5S ROLE 


34 IF Z<>°"T" THEN 92:REM81 

32 IF T>7 THEN TT=TT-230 : PRINT àa984:T1:* ( -20 )"3:REM94 
33 GOTO S2:REMEB 

34 PRINT 9833; "POSITION A VISUALISER { + )} OU EFFACER ( - ) “s5iR 
EMSC 

35 INPUT I * IF ACABS(I))=0 THEN 7S:REMOZ 

36 GOSUE 89 3: IF I1>0 THEN 38 ELSE RESET(X+3:Y):REN1D 

37 RESET(X+42V+1) : RESET(X+5:Y) : GOTO 75:REMOD 

38 SET(X+3:Y) 5: SET(X+4:Y+1) 3 SET(X+S2Y) : GOTO 7S:REMIF 

39 PRINT @833; "QUELLE POSITION VOULEZ-VOUS ESSAYER "3:REME4 
#0 INPUT I % IF A(I)=0 THEN 75:REM27 

41 F=F+1 3 IF F£=N THEN 43:REM3F 

Re ITSMEStOSS "PRINT 990% TTe" { -10 )"::REM44 

#3 GOSUB 89 : IF A(I)=9 THEN 47:REMEC 

#4 FOR J=1 TO 4 : SET(X+42Y) : FOR I=1 TO 199 : NEXT I:REMB? 
45 RESET(X+42Y) 3 FOR I=1 TO 99 3: NEXT Ir) : SET(X2Y):REM7E 
#6 GOSUE 91 : PRINT @913:* MANQUE”: : GOTO 75:REM49 

#7 FOR J=1 TO N 3 IF D(J)=I THEN DD=1:REMD? 

48 NEXT J x IF DD=1 THEN DD=0 : F=F-1 : GOTO'75:REM84 

49 E=E-1 : D(E)=I : FOR 1=1 TO 7 : SET(X+I2Y):REM40 

30 SET(X+1:Y+1) : NEXT I : GOSUR 91 : PRINT 4919: "REUSSI"::REM7E 


a 


ATETISTEE2S CS OPRINT 998411: (6250) "508 GÉTONTSARENEE 
32 PRINT 8833; "POSITION DE DEPART ‘: INPUT I:REMC7 

93 IF I£i OR 1}>98 THEN 7S:REMS5 

94 IF ACI)<30 THEN 75 ELSE K=I : GOSUE 85 : X=P:REM?9 

39 IF I1€9 THEN M=10 : GOTO 58:REM4i 

36 IF I>90 THEN M=-10 : GOTO S58:REM64 

37 IF AD*INT(I/10)=1 THEN M=1 ELSE M=-1:REM3A 
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S8 I=I1+M : IF A(I)=0 THEN 67:5REM6S 
39 IF A(I)=9 THEN 61:REMIC 


60 IF ACI+M)£39 THEN J=11#SGN(M) : Gi 


OTO &3:REM9E 
&1 FOR J=1 TO 3 : PRINT 9X:° rose 


OR I=1 TO 99 : NEXT I:REM9D 


2 PRINT à4X:'ABS"3 : FOR I=1 TO 199 : NEXT I:J : GOTO 75:REMDA 
83 IF AI+J)=9 AND A(I+2#M-J)=9 THEN I=K : GOTO 67:REMDD 

64 IF A(I+J)=9 THEN M=M-J : GOTO SB8:REMAC 

65 IF ACI+2*4M-J)=9 THEN M=J-M'REMC3 

ëé GOTO S8:REMC4 

67 GOSUB 85 : Y=P : T=T+1 : Z=STRS(T):REMSO 

59 FOR et T4 3 + PRINT a: °5 3 PRINT àY:” F31REM9C 

GT FOR HET TO TPS NECDCE PRINT dir °T +75 =: PRINT Ov: Ur7:FhRE 


FOR I1=1 TO 125 : NEXT 1243 =: GOTO 75:REME2 
FOR I=1i1 TO 88 : IF ACI)=9 THEN 73:REMAS 
2 MNERT 12: PRET 2 COF0 -75-RENDS 
FOR J=i TO N : IF D(J)<>I THEN NEXT J ELSE 72:REM6D 
GOSUB 89 : PRINT QUCINT(Y/3))#64+INT(X/2)+2"«"5 : GOTO 72:REM 


FOR I=14 1069: PRINT 9832#1:7 S=REMNIS 
NEXT I * IF PP=0 THEN 78:REM3D 
PRINT Q9961:"VOUS ABANDONNEZ : DO 


IF E£2>0 THEN 23:REMDS 

FOR I1=1 TO 63 : PRINT 4896+1:" ‘53 : NEXT I:REMID 

IF T>7 THEN 82 ELSE U=120-154T : TT=TT+U:REM2A 

PRINT G@984:TT:° F3 3 PRINT 4832: "BONUS Oo:  “3U3:REMC 


PRINT @896:"VOUS AVEZ TROUVE LES "35N3" OBSTACLES"3:REM76 
Z=INKEYS$S : IF Z="" THEN 83:REM44 

RUN:REMIE 

IF I<9 THEN P=14+5%I : RETURN:REMSA 

IF 1290 THEN P=268+5%1 : RETURN:REM#O 

IF 1DKkINT(I/140)=1 THEN P=73+b.4%xI : RETURN:REME7 
P=65.5+6.44xI : RETURN:IREM&C 

B=ABS(I) : V=HB/10 : X=27+10*+B-100*V:REMBZ 

Y=4+3xV =: RETURNIREMS3 

PRINT 4897:"ESSAI NUMERO"3F3 : RETURN:IREMCES 

IF 2€3>°"5" THEN Z6:REM48 

IF SR=1 PRINT 98337; "PROCEDURE DEJA UTILISEE “3: : GOTO 26:REM 


PRINT G833:"OBSTACLE À SUPPRIMER "3 : INPUT I:REMO6 
SR=1 * IF A(I1)<>9 THEN 26:REM3D 

GOSUB 89 3 IF NO POINT(IX+1:Y+1) THEN 26:REMi8 

PRINT Q64x(INT(Y/3))+INT(X/2)+2:"S"3:REMSI 

A(I)=1 : GOTO 75:REMS8A 





Roger Sawicki 








Abonnez-vous 


à TRACE VOIR PAGE 5 
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Des cassettes 


avec 
un grand V 








Le but de cet utilitaire est de recopier vos program- 
mes BASIC de telle façon que vous puissiez les relire 
quatre fois plus rapidement (à 2000 BAUDS) sans aucu- 
ne modification du matériel. La relecture à cette vi- 
tesse se fait automatiquement par la commande SYSTEM 
sans avoir à charger un programme au préalable... et 

vous bénéficiez par la même occasion du contrôle de 


"checksum" fourni gratuitement par le format "system!! 


MODE D'EMPLOI 


POUR L'ECRITURE EN 2000 BAUDS; 

- Charger CRB (Recopie de Programme BASIC) et lancez- 
le’, 

- Charger ou frapper le programme BASIC à recopier. 

- Activer CRB par : SYSTEM/31812 (version 16K). 

- Donner le nom du programme (6 caractères obligatoi- 
res, complété éventuellement par des espaces). 

- Préciser le nombre de copies à effectuer. 

- Positionner le magnétophone en écriture et frapper 
sur une touche quelconque. 


POUR LA RELECTURE D'UN PROGRAMME BASIC ECRIT PAR CRB. 
- Baisser légèrement le volume du magnétophone. 
- Frapper : SYSTEM *? <le nom du programme > 
(à chaque bloc lu correspond l'affichage d'un "#" 
sur l'écran). 


PRINCIPE 


CRB enregistre tout d'abord sur la cassette un "pré- 
chargeur" au format SYSTEM habituel (durée : 5 secon- 
des), puis les pointeurs BASIC de début et de fin de 
programme, et enfin le programme BASIC lui-même. À la 
relecture, le préchargeur au format SYSTEM est lu et 
se lance automatiquement. C'est lui qui prend ensuite 
la direction des opérations et qui charge le program- 
me dans le "buffer" BASIC. L'écriture et la lecture 
du programme principal utilisent une routine spéciale 
permettant de gérer la cassette à la vitesse de 2000 
bauds. 


Ce programme a fonctionné sans aucun problème sur mon 
TRS modèle 1 pendant plusieurs mois. J'ai même cons- 
taté une fiabilité accrue. Un ami l'utilise également 
sur un Vidéo Génie et en est très satisfait. Quant à 
moi, je l'ai "laissé tomber"... m'étant enfin offert 
un lecteur de disquettes ! Mais il faut bien penser 
aux autres ! 


Voici la liste de ce programme en BASIC (binaire sous 

forme de lignes DATA) ainsi que le "source! assembleur 
pour ceux qui voudraient en comprendre le fonctionne- 

ment. 


À ess FF 
ë : CRE (Chargement Rapide Hasic} ONE: 
< 0 {C) 1983 - Michel Fourcade et TRACE Er 
h © Configuration : modele 1: 16K: cassette es EE 
5 en ee LL A OR RON ee OP ee CP A FE 


10 POKE 16561768 : POKE 1656273124 


CLEAR SO:REM9F 


20 PRINT * LE PROGRAMME EN LANGAGE MACHINE QUI SE CHARGE (15 5) 
EST AUTO FROTEGE PAR UN MEMORY SIZE ET PERMET DE COPIER SUR CAS 


SETTE LES PROGRAMMES EN BASIC À 


. ":REM20 


30 PRINT * CHARGEZ OÙ TAPEZ VOTRE 
T-VOUS CELDESTREZ; PUIS CACTIVEZQLE 
MACENTERI 734812; CENTER) "ET SUIVE? 


UNE VITESSE D'ENVIRON 2000 BAUDS 


PROGRAMME BASIC: ESSAYEZ LE S 
COPIEUR RAPIDE PAR: SMSIE 
LES INSTRUCTIONS.":REMEF 


4#0 PRINT “ POUR RELIRE UN PROGRAMME BASIC ENREGISTRE PAR LE COPI 


EUR RAPIDEBAISSEZ LE NIVEAU DU 


TBPEZ: 


UN CONTROLE DE 


HAGNETOPHONE ENTRE à ET 4.35 PUIS 
SYSTEM (ENTER) NOM DU FROGRAMME (ENTER)":REMD9 
50 PRINT * PENDBNT LE CHARGEMENT 


:CHECKSUM' S'E 


FFECTUERA:MODIFIEZ LE NIVEAU DE LECTURE EN CAS D'ERREUR. LE NOMB 
RE DE ####VOUS PERMETIRA DE CONNAITRE LE NOMBRE DE BLOCS LUS.”: 


EM7F 
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60 PRINT “ UNE FOIS LE PROGRAMME CHARGE VOUS POUVEZ LE LISTER? 
L'EXECUTERPAR ‘RUN’ OÙ LE SAUVER PAR ‘CSAVE’ HABITUELS.'":REMSF 
70 PRINT "PATIENTEZ i5 SECONDES... FsHREM9I 

80 FOR 1=31817 TG 32767 : READ D% : POKE I1D% : NEXT I'REM4H 

C0 PRINT ‘===} “3; : END:REMCS 

100 DATA 4%: Â1éé4r hhr Gé 1493 125: 4%: 2493 br 3à&:REMAA 
1100414 1517 0195/0705 20407 tes 1257 205; To7eREeM2S 
190 DATA 403 177 1547 1253: 67 67 2337 443 bi; Z213:REM40 

130 DATA 205: 73: Or 2547 927 2507 98: 12%; 2543 91s:REM9S 

140 DATA 7473: 96) 1243 2095 182 1197 193: 397 167 239:REM4E 

150 DATA 33: 597 1757: 205: 167: 40: 33: 1497 bi S4REMS83 

160 DATé 232: 2057 737 DO: 254: 49 250: 124: 1247 254:REM4E 

170 DelTA ne r0re nr rar led di te CTTANIGS PANIER ENUE 

180 DATA 50: 1597 1252 997 747 1252: 2057 1677: 40? 205:REMO3 

190 DATA 73: O7: 1952 1607 125: 697 78: 827 69; 71:REMA7 

200 DATA 737 09: 94: 027 603 77: 69: 78: 84; 32:REMED 
210 DATA 657 3? SO? 467 487 487 32: bb: b57 B5S:REMFS 
250 DATA 687 897 32: 68: 697 899 322 80: 82: 79:REMEZ 
230 DATA 7ir 82: 657 773: 771 b9r 8937 327 69: 78*REMDD 
240 DATA 32: bb: 65: 83: 793 73: 193: 86: 69: 82:REMD3 
250 DATA 83: 793: 793 783 92: S0r 4br 487 32: 32:REMD4 
740 DTA 68: 657 927 49: 593: 473 407 48: 472 S6:REMBS 
270 DATA SU? 327.377 607 691-027 922 2? 777 7J RENE 
290 DATA 67: 723 692 761 32: 32: 707 791 85: 82:REMA9 
290 DATA 67: 65: 602 693 1933 193» 1931 68: 79: 78:REM9B 
300 DATA 787 69: 90: 9%; 763: 69 921 78: 797: 77:REM85 
310 DATA 3?: 687 857 923 807 82» 792 747 827 69:REM9I 
9320 DATA 771 773 693 33 4O?r Sé4r J2r b7r b51 82:REM87 
330 DATA 65: 677 4r 697 82: b97 9937 47 587 325REM73 
DATA Os 137 192 787 792 771 bb: 82: 6971 32:REMAS 
DATA 68: 697 923: 67: 797 80: 73: 69: 83: S8:REMSS 
DATA 37: O2 193: 7771 69: 94%: 84: 692 907 32:REM98 
DATA 7h: 693 323 772 651 74 7837 69: 843 79:REM3D 
DATA 807 72: 793 783 697 32: 69: 781 321 7/:REM3A 
DATA 797 63: 069: 32: 69: 7871 821 6971 711 73:REM2A 
DATA 83: 647 073 6097 771 691 783 84: 132 89:REM20 
#10 DATA 647 327 657 807: 80: 857 897 697: 90: 32:REM2A 
420 DATA 23: 85: 82» 327: 897? 781 697: 32: 847 79:REMI4 
430 DATA 857 677 723 695 322 46: O7 O7 O7 O:REMFC 
HETSDATA Or 427007209200 7 3271327 07 2057 192:REMEFS 
250 DATA 2: 62» 057 205: 1007 27 br br 33r 153:REM5D 
HO ODATA MES 12670357 205741007027 do 24030337 18:REMST 

470 DATA 1277 1267 2547 607 1943: 2947 1257 2057 1007 2:RENBE 
BB DATA 357 1207 717 20597 1007-27 1797 797 627 2:REMA 

490 DATA 95: 357 1267: 8737 1291 791 1221 2051 1007 2:REM28 

JD00 DATA 297 327 74h; 35r 1261 873 1293 7/93 122; PUS5:REMES 
JLONDATR 1007 270167 724570417217 2057 1007 278337 195-:REN33 

920 DATA 1837 1257 29547 1207 2293 933: 175: 12771 198: 184:REMOB 
AD DATA 1277 22582057 010077270892, 1260023 T0 NS RENEE 

540 DATA 357; 1267 2057 100: 27: 4: O7 487 2057: 96&:REMAD 

550 DATA O7 bb? b43 1753 1973 205: 7147 1267 1937 16:REMEB 

560 DATA 248» 623 85: 205: 2147 126: br br 331 1533:REM1S 

570 DATA 125: 1267 2057 2447 1267 95: 167 2497: 427 149:REM46 
500 DATA 125: 2377 ir 15147 1252 147 O7 627 60 205:REMDF 

590 DATA 214: 1267 623 23 2057 214 1267 627 164: 205:REM71 
600 DATA Tir 1267 1297 793 627: bkr 2057 2147 1267 129:REM21 
6810 DATA 79: 1257: 2057 2447 1267 12973 797 1247 2057 214:RÈEME8 
620 DATA 1267 1297 2057 2147 1267 147 O1 627 607 ?205:REM88 

830 DATA 2447 1267 6Pr 22 205: 2147 1267 621 24921 205:REM4S 
b4D DATA 2147 1276» 1297 797 621 bhr 2057 2142 1267 129:REMF9 
650 DATA 797 1291 2057 ?t4r 1267 1297 797 122» 2051 2145REMC4 





+ 
DJ 


> O2 Ci Li fut Lot 


1-0 Co J Qr ON 
ENERGIE 
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660 DATA 1267 1297: 2057 74147 1767 2297 219: 29351 17571 237:REM54 
670 DATA 82: 1247 2547 O7 407 47 6: 2551 241 1:REM7F 
680 DATA 697 2097: 275: 1707 254: O0: 2027 1847 1267 14:REM12 
6890 DATA O7 62» 607 2057 7147 1267 1207 2057 214: 126:REM19 
700 DATA 1257 2057 2147 1267 1297 797 1243 2097 2147 126:REM6S 
710 DATA 1297 797 1267 2057 ?Pi4r 1767 1297 791 35: 168:REMDD 
720 DOG 747: 41747 2097: 2161 17631 105; 1292 1767 br 170:REMDE 
730 DATA 205: 2447 1267 587 159: 1257 6ir 2027 1957 127:REM71 
740 DATA S07r 1597 1253 br 423 337 O7 O7 433 124:REM3C 
750 DATA 1847 227 251, 41h} 249), 195; 1607 125: 2297 2193:REMSE 
760 DATA 1977 245) b3 167 167 2543 147 9: 873 S9:REMAD 
770 DATA 2057 2407 1265 1223 71 871 13: 32; 2471 241:REME9 
780 DATA 193: 2097 2253 207 487 277 623 Sr 211: 255:REMD/7 
790 DATA 67 871 dôr 2547 623 Gr 2117 259: br 8:REM27 
800 DATA hr 254 623 à 2141 2553 br 423 167 254:REMSD 
10 DATA 2597 453 PM 7067 6937 1607: 7547 2017 607 G2-2REM?S 
BZUTOVATA 07 or orme nn 627 717 697 77003 REMCE 
BIO DÔTA Er Bhre 327 627 51 Ur 7d7 667 097 JerREMBr 
840 DATA ébz 65: 89: 73: 673: 3: 9%r 17: 402: 67:REÈMSS 
850 DATA 4lr 927 327 32: 493 Sr 47» 493: à83 472REM7F 
B60 PâTR Sé6r 50: 37; 372 807 657 82r 327 77: 73:REM79 
810 DAT 677 727 697 J6r 327 7U7r 79: E5: 87: 6/:REMNSI 
Be PATA Gore 687 697 J27 Dr 1137 867 1777 627 FREMAR 
STD DA TA TISS ESS 2057 1277 Zéro ou 73 200 REMSS 
DDO DATA br A7 bre aD re 2Dar 0er PET l'E RETIES 
CAD SDAT ESS er 527 0187 4197 205 PDC RElErd 
D2D DTA 327 9872057 20511777 7er Dr 7052 205 RENSE 
9930 DATA 1777 11401293 79% 7057020507 4777 1037 41797707 RENÉ 
DES DOTA ED SRE ME ER ETES SE SE TE CS RE DER EME 
DA DATA PU TT TEE rm German ler qu OR EMES 
TOR OS ET To ET PT Or ee SAN TS TR EME 
DADÉDANR RETRO NES br Dr OR Error ESS REMES 
980 DATÉ B%3 9937 1793 1271 Gr bas 173: 1567 63: 126:REMNSC 
990 DATA 183 953 192 16: 2507 2057: 248: 11 195: 114:REN37 
1000 DATA O: 607 4: 2057 1273 19/3 2453 br #1 F1 REM69 
LOT CDAEA 29837 143 067 AU Par er AOrmrdr D dreiR EPL 
LHZD DATA Gr 2547 627 07 tr 2950 br odr clG: 2oteREMEU 
TOSUJSDAMAME RS ST PO ES re El 0 dt 23e Se REMEN 
De DA AT TS a tr CO PEN br er 207 00e REMLU 
1DSDCDATR 195068277170 255 267 REMISES 
AFF Eeu 28A7H 3INITIALISATION Le DEANErES DEMANDE LE 
CLS E QU o+ Cou ; CALL 8FF :NOMBRE DE 
LE ou GES NECOPI LD HL > 2D95H ; COPIES 
ECROCT EQU 264H 2e (HE) 20h 
ORG 7C44H CALL CLav 
SREREREHERÉERÉELRÉRÉERÉEEEEERERERENHEEEEEEELEEELELEEEE XXE CP 31H 
DEPART LD HL (40844H) 3LECTURE JP M?NECOPI 
LD (DEBBAS ) rHL 3DES cP 34H 
LD HL : (40F 9H) :POINTEURS JP P:NBCOPI 
LD (FINBAS) 2HL sBASIC LD HL > 3D95H 
RS RS Une RSS ARR Ce Rien PORT Le 5 LD (HL);A 
NOM CALL CLS 3EFFACE ECRAN AND OFH 
D HL: TITRE AFFICHAGE LD (COPIES) A 
CALL AFF S DU PTE Du D Ste me nn AE Dee PA PCT en ms mes Ut 
LD DE > NOMPRO :LECTURE DU NOM LD HL:MESG2 3ATTENTE POUR 
LD E:06H 5DU PROGRAMME CALL AFF 3LA MISE EN 
LD HL »3D2CH :A ENREGISTRER CALL CLAV 3ROUTE DU 
TOUCHE PUSH DE JP ENRG :MAGNETOPHONE 
ERRCLA CAL CLAav TRKHEXEXAEKHEXEEEE DIVERS MESSAGES ##KXE4XAXLHENERERENEEENES 
CP 20H TITRE  DEFM "ENREGISTREMENT 4 2000 BAUDS DES PROGRAMMES EN BASIC 
JP MERRCLA DEFE DDH 
CP SEH DEFM VERSION 2.0 DU 15/10/82 PAR MICHEL FOURCADE’ 
JP PrERRCLA DEFÉ ODH 
POP DE DEFW ODODH 
LD (DE) A DEFM ‘DONNEZ LE NOM DU PROGRAMME (é CARACTERES): 
LD (HL)rA DEFE oûH 
INC DE MESG1  DEFW ODüDH 
INC HL DEFM "NOMBRE DE COPIES: ‘ 
DJN TOUCHE DEFB 00H 
ER | HESCZ  DEFB 0DH 
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DEFH "METTEZ LE MAGNETOPHONE EN MODE ENREGISTREMENT" 


DEFB DH 
DEFM "ET APPUYEZ SUR UNE TOUCHE .” 
DEFB 00H 


FORON HE HE DEEE ER MR RHEEEELEEEEEREEÉEEEEEEEREEENEEESE 


DEBEAS DEFUW 0000H 3RESERVATION DE 
FINBAS DEFU 0000H 3MEMOIRES 
NOMPRO DEFM : 

COPIES DEFB 00H 


BBD DE DE HE JE JE DE JE DEAD DEEE HD DH HD HD HE HE DE DE DE HE DE DE DE DFE ORDER DE DE DE DE DE DEEE 
FPROGRAMME ENREGISTRANT LE PRECHARGEUR AU FORMAT "SYSTEM" 
QUI SERA ENSUITE CAPABLE DE LIRE LE PROGRAMME SUIVANT 
3AU FORMAT RAPIDE *CRE” 

BARRE DEEE EEE EEE EEE ERREUR REX RNEUEEEEEEEELEEEEX 


ENRG CALL Z84H 3ECRITURE DE L'AMORCE 
LD A:55H ECRITURE DE L'OCTET 
CALL ECROCT DE FORMAT "SYSTEM" 
LD B:06 3ECRITURE DU NOM 
LD HL : NOMPRO 3DU PROGRAMME 
ECRNOM LD Az (HL) 
INC HL 
CALL ECROCT 
DJNZ ECRNON 
LD HL:PRECHA 3ECRIT LE PRECHARGEUR 
CHARGE ED A: (HL} AU FORMAT "SYSTEM" 
CP 3CH 3LE ELOC DOIT COMMENCER 
JP NZ:FINPRO 3PAR L'OCTET 3C 
CALL ECROCT 3ECRIT 30 
INC HE #ECRIT LA LONGUEUR 
LD A: {(HL) DU BLOC 
LD BA 
CALL ECROCT 
XOR â 3ECRIT L'ADRESSE 
LD CrA 5D'IMPLANTATION 
LD A>02 DU BLOC 
LD Er 
LECADR INC HL 
LD 8: CHL) 
LD DA 
ADD ArC CALCULE LE 
LD C:A  "CHECKSUM” 
LD A:D 
CALL ECROCT 
DEC E 
JR NZ:LECADR 
DONNEE INC HL 3ECRIT TOUT LE 
LD A2: (HL)} BLOC DE DONNEES 
LD DA AU FORMAT “SYSTEM” 
ADD Arc 3AVEC CALCUL 
LD CA 5DU "CHECKSUM” 
LD A:D 
CALL ECROCT 
DINZ DONNEE 
LD rc 3ECRIT L'OCTET DE 
CALL ECROCT 3 "CHECKSUN” 
INC HE 3 CHARGEMENT DU BLOC 
JP CHARGE 3 SUIVANT 
FINPRO CP 78H APRES LE DERNIER BLOC 
PUSH HE 3IL DOIT Y AVOIR 78 
LD HL:4FERR 3SINON AFFICHER 
JP NZ?ERRENR ERREUR 
POP HL 
CALL ECROCT FECRITESOTTET ZE 
INC HL *ECRIT L'ADRESSE DE 
LD A:(HL} LANCEMENT DU FROGRAMME 
CALL ECROCT $PRECHARGEUR QUI VIENT 
INC HL :D'ETRE ENREGISTRE 
LD A: (HL) AU FORMAT "SYSTEM" 
CALL ECROCT 
LD EC? 3000H DELAI ENTRE LE PRECHARCG, 
CALL O0ëèüH SET LE PROGRAMME RAPIDE 


RE RE DE DRE DH DE DE DE DE DE DEEE EEE EE ERREUR NN NE À 
3ECRITURE DES OCTETS CONSTITUANT LE PROGRAMME BASIC 

3AU FORMAT RAPIDE “CRE” 
HÉLECELIILLILELESES SES SE SES SSSR RSS 


LD B?40H 3ECRITURE D'UNE AMGRCE 
AMORCE  XOR & 3DE 64 OCTETS Où 

PUSH EC 3AU FORMAT "CRE" 

CALE SORTIE 

POP BC 

DJNZ AMORCE 

LD ArSaH *ECRIT UN OCTET 55 

CALL SORTIE DE SYNCHRONISATION 

LD B:08 S5ECRIT LE NOH 

LD HL : NOMPRO DU PROGRAMME 
BCLNOM LD A>(HL} 

CALL SORTIE 

INC HL 








D.INZ ECLNON 
LD HL 7 (DEBBAS } #RECUPERE LES ADRESSES 
ED DE>(FINBAS} 3DE DEBUT ET FIN BASIC 
LD C:00 3"CHECKSUM® À ZERO 
LD A:3CH 3ECRIT L'OCTET 3€ 
CALL SORTIE DE DEBUT DE BLOC 
LD 02 3ECRIT UN BLOC 
CALL SORTIE 3DE LONGUEUR Z 
LD Az0A4H 3ECRIT L'ADRESSE 
CALL SORTIE 3D'IMPLANTATION DU BLOC 
ADD &:C 3C'EST-8-DIRE 40A4H 
LD CrA 
LD &:4DH 
CALL SORTIE 
8DD A?C 
LD CA 
LD &2l fECRIT LE BLOC 
CALE SORTIE ADRESSE DEBUT Di BASIC 
ADD rc 
LD C:A 
LD 82H 
CAEL SORTIE 
ADD A:C 
CAbL SORTIE SECRIT LE "CHECKSUM" 
LD C:00 3 "CHECKSUM” A ZERO 
LD À:3CH 3ECRITURE D'UN AUTRE ELOC 
CALL SORTIE 
LD A?02 #ECRIT LA LONGUEUR 
CALL SORTIE 3S0IT 2 OCTETS 
LD A:0F9H 3ECRIT L'ADRESSE 
CALL SORTIE 3D'IMPLANTATION 
&DD A:C 3DU BLOC: 40FS5H 
LD CrA 3C'EST-A-DIRE 
LD A: 40H 3POINTEUR DE FIN DE BASIC 
CALL SORTIE 
BDD A:C 
LD CA 
LD Â?E 3ECRIT L'ADRESSE DE FIN 
CALL SORTIE 3DU PROGRAMME BASIC 
8DD A:C 3GQUI VA ETRE CHARGE 
LD CA 
LD AD 
CALL SORTIE 
ADE ArC 
CALL SORTIE *ECRITURE DU °C 
COMPAR PUSH HL 3 CALCUL DE LA LONGUEUR 
PUSH DE 3DU BLOC A ENREGISTRER 
EX DE >HL 
XOR À 3 CETTE LONGUEUR SERA OGFFH 
SBC HL?DE 3 JUSQU’ AU DERNIER BLOC 
LD â:H 3A ENREGISTRER POUR 
CP oû 3LEQUEL ELLE SERA 
JR Z:LONG 3LE NOMBRE EXACT 
LD E>0FFH 3D'OCTETS RESTANTS 
JR SUITE 
LONG LD B:L 
SUITE POP DE 
POP HL 
LD A:B 3SI LA LONGUEUR EST NULLE 
CP 00 C'EST QUE LE PROGRAMME 
iP Z2TERM 3EST ENRÉGISTRE 
LD C:00 3 "CHECKSUM” & ZERO 
LD &>3CH ECRITURE DE 3CH 
CALL SORTIE 5L'OCTET DE DEBUT DE BLOC 
LD &:E 3ECRIT L& LONGUEUR 
CALL SORTIE DU BLOC 
LD AL SECRIT L'ADRESSE DU BLOC 
CALL SORTIE 
ADD B2C 
LD CrA 
LD AzH 
CALL SORTIE 
8DD A?C 
LD C:A 
BLOC LD A: (HL) 3ECRITURE D'UN BLOC 
CALL SORTIE AU FORMAT "CRB” 
8D0D BrC AVEC CALCUL 
LD Cri 5DU *CHECKSUN” 
INC HL 
DINZ BLOC 
LD B:2C SECRITURE DU "CHECKSUM” 
CALL SORTIE 
JP COMFAR POUR LE BLOC SUIVANT 
TERH LD A:78H 3ECRIT 78H APRES 
CALL SORTIE 3LE DERNIER BLOC 
LD A>(COPIES) 5TESTE SI TOUTES LES 
DEC A COPIES DEMANDEES 
JP Z?EXIT 5; SONT EFFECTUEES 
LD (COPIES) :À : COMPTEUR 8 JOUR 
LD E:04 3DELAI AYANT L£ 
LD HL :0000 COPIE SUIVANTE 
BCLO DEC HL 
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LD AzH 

OR [E 

JR NZ:BCLO 

DINZ BCLO 

JP ENRG 3NOUVEL ENREGISTREMENT 


BAD DE DE D DEEE EEE EEE DEEE HE DER DEEE DE GE DE DE DE DE HE JE JE HE JE HE EE EEE RENE 
3SO0US PROGRAMME D'ECRITURE D'UN OCTET AU FORMAT "CRE" 


SORTIE PUSH HE 3 SAUVEGARDES 
PUSH DE 
PUSH EC 
PUSH &F 
LD E710H 
DJNZ $ 
LD C:09H 
LD DA 
SCF 

BCL1 CALL ECRBIT 
LD 8:D 
RLCA 
LD DA 
DEC C 
JR MNZ:BCLi 
POP AF 
POP BC 
POP DE 
POP HL 
RET 


DEEE EE EEE DE EEE JE RER EEE EX RRRREREEEEEEEEEEE EX 
5S0US PROGRAMME UTILISE PAR LE PRECEDENT FOUR ECRIRE 

SUN SEUL BIT 

DER RE EE DE OR EE EEERENRREEREEEEEEEEERX EEE 


ECREIT JR NC: TEMPO 
LD 8:05 
OUT (255) 7À 
LD E:08H 
DJNZ $ 
LD A:06 
OUT (253) 74 
LD B:08 
DJNZ $ 
LD 8:04 
OUT (255)78 
LD B:24H 
DJNZ $ 
INC IY 
RET 

TEMPO LD B:3FH 
DJNZ $ 
RET 


RE LL NOR SEE EEE 

ENTOCT E&GU 7FCDH ADRESSES DES DEUX 

DEBUT EQU 7F58H SOUS PROGRAMMES 

DAME DEEE DE DE MERE NE DEEE RE DE DE HE DO DEN O4 À 

;PRECHARGEUR QUI SERA ENREGISTRE AU FORMAT "SYSTEM" 

ÿEN DEBUT DE BANDE ET QUI PERMETTRA DE LIRE LE PROGRAMME 

AU FORMAT “CRE” 

BASE SD SD AD DE DE DE DEEE RDA NME 

PRECHA DEFW 3E3CH 33E=LONGUEUR 3C=DER. ELOC 
DEFW 3C00H ADRESSE D'IMPLANTATION 
DEFM CHARGEMENT RAPIDE FBASIC (C) 15/10/82 


ÉÉLEEHEERERÉREÉERIEEES 





CADE 
DEFW 713CH 
DEFW 7F58H 


371=LONGUEUR SC=DEB. BLOC 
3ADRESSE D’ IMPFLANTATION 


LD A:04 
OUT (255) À 
SYNCRO CALL ENTOCT LIT. UN  OCTET. ©CRB* 
CP 35H 3ATTENTE DE L'OCTET 
JR NZ SYNCRO :55H DE SYNCHRO 
LD B:06 3LECTURE DES 6 OCTETS 
LD DE >3C40H DU NOM DU PROGRAMME 
AFNONM CALL ENTOCT AVEC AFFICHAGE 
LD (DE) À 5 SUR L'ECRAN 
INC DE 
DJNZ AFNOM 
LD â:20H AFFICHE UN ESPACE 
LD (DE) À 
BCL2 INC DE 
CALL ENTOCT :LIT ET TESTE 
CE 3CcH 5L'OCTET DE DEBUT 
JR NZ?FINI 3DE BLOC 
CALL ENTOCT 3LIT LA LONGUEUR 
LD B'A 3DU BLOC 
LD C700 3”"CHECKSUN" À ZERO 
CALL ENTOCT 3LIT L'ADRESSE 
LD LA 5D'IMPLANTATION DU BLOC 


AVEC CALCUL 


LD C:A 3DU *CHECKSUM” 
CALL ENTOCT 
LD H:A 
ADD GERS 
LD CA 
BCL3 CALL ENTOCT 3LECTURE D'UN BLOC 
LD (HL) À 
INC HL 
ADD AC 3AVEC CALCUL 
LD Ge 3DU “CHECKSUM” 


DJNZ BCL3 


CALL ENTOCT 3LIT LE “CHECKSUM” 


CP € 3ET COMPARE AVEC CELUI 
JR NZ ERREUR 3 CALCULE 
LD A:23H 3 AFFICHE UN "#” 
LD (DE) À 3 SUPPLEMENTAIRE POUR 
JR BCL2 3 CHAQUE BLOC LU 
FINI CP 7EH $FIN DU PROGRAMME LU 
JR NZ:ERREUR 3SINON ERREUR 
LD 420C9H 3PLACE UN "RET” POUR UN 
LD (41E2H):A DEMARRAGE AUTOIATIQUE 
CâLL 1F8H 3ARRET DU MOTEUR CASSETTE 
1P 1A419H sJUMP AU BASIC 
SFERR  DEFM * ERREUR" :MESSAGE ERREUR 
ERREUR LD HL : DEBUT+57H :SOUS PROGRAMME AFFICHANT 
ERRENR LD E>D6 : "ERREUR" EN CAS DE 
LD DE:3F9CH MAUVAISE LECTURE AU 
XYZ LD A:tHL} *FORMAT "CRB” 
LD (DEA 
INC HL 
INC DE 
DINZ XYZ 
EXIT CALL 1F8H FRARRET MOTEUR 
JP 72H *ET RETOUR AU BASIC 


LUE DE SIN DEEE DE DE DE DE DE D DE SEE AE NEED RE RE REC EEE EEE X 

:S0US PROGRAMME INCLUS DANS LE PRECHARGEUR PERMETTANT 

:DE LIRE UN OCTET AU FORMAT "CRE" 

DR DD DIEU DO DD HE U NES EN HE HE DE HE DEEE RENE GENE 
DEFU 292CH 129=LONGUEUR 3C=DER. RLOC 

*ADRESSE D'IMPLANTATION 

BCLé FUSH BC 


PUSH aF 

LD 4:04 

OUT {255) A 

LD C:08H *COMPTEUR POUR 8 LECTURES 
ATTBIT IN 42(255) tATTENTE D'UN BIT 

RLA 

JR NC:ATTRIT 

LD B?29H DELAI 

DJNZ $ 
BCES LD &r04 #INITIALISATION 

OUT (255)7AÀ AVANT LECTURE 

LD B:3DH 5DELAI 

DJN7 $ 


PAR MICHEL FOUR 


INC 2 

IN (255) LECTURE BIT 

LD B:A * SAUVEGARDE 

POP 8F 

RL E 3ET ROTATION POUR 


RLA SQUE "A" CONTIENNE 


PUSH &F 3LES HUIT BITS APRES 

DEC € 3LES HUIT LECTURES 

JR NZ:BCLS FIN DE BOUCLE 

POP AF $RECUPERATION DE L'OCTET 
POP EC 

RET *FIN DU SOUS PROGRAMME 


BOB DGSE EEE RUN EH RE RE EE EE EEE RE EEE RUN URRRRRE EEE 

YIMPLANTE DANS LES MEMOIRES 41E2H À 41E4H UN JUMP AU 

FPRECHARGEUR 

DRE EEE RIRE IEEE DE HE HE DE HE DE ÉD DE DEEE EEE HD DD 
DEFW 033CH 3D3=LONGUEUR GC=DEB. BLOC 
DEFW 41E2 :ADRESSE D'IMPLANTATION 


JP 7F58H AFIN QUE CE PROGRAMME 
DEFB 7EH 3DENARRE AUTOMATIGQUEMENT 
DEFU 1419H POUR RETOURNER AU EHASIC 
END DEPART 


Michel Fourcade 
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technique 





Améliorez la vitesse de vos 
enregistrements 
sur cassette 


Cet article est composé de deux volets : le premier, 
de Roger Brousmiche, décrit une méthode pour compac- 
ter les enregistrements écrits et lus sur la casset- 
te. Le second article dû à E. Ferrier, nous propose 
tout simplement de réduire l'amorce de chaque enregis- 
trement. Libre à vous de cumuler les deux ! 


Voici quatre ans déjà, manuel en main, j'ai tapé sur 
le clavier de mon TRS80 flambant neuf : 


10 DIM F(150) 

20 garnissage du fichier 

100 FOR I == TO 150:PRINT +#-1,F(I) 
110 NEXT 





Programme D'ESSAI N° L 


Rien de bien sorcier en somme, ...mais quelle décep- 
tion lors de l'exécution ! Après quelques minutes, ne 
voyant rien venir à l'écran, j'ai tapé BREAK et ajou- 
té le jalon : 
105 PRINT lI; 


Et la lumière fut ! Un nouvel "I" apparaissait à l'é- 
cran toutes les quatre secondes, et il fallut plus de 
10 minutes pour en lire "150", et par la même occasion 
remplir la cassette. 


La raison est simple : chaque PRINT #-1 entraîne l'é- 
criture d'une amorce de 256 octets 0 suivie de l'oc- 


FINUMI/EAS {C}) Roger Brousmiche et TRACE FF 


Configuration de base 


20 ON ERROR. COTO O:REMFO 
30 CLS 5 PRINE rÉBOTO) 
1)°7 5 PRINT:REM49 

pie Programme d'essai DE 
50 CLE8&R 1000 K=15S0 
70 FOR I=ü 10 K CUS EE 
EM 7 

O0 INPUT ŸK7 - RECORD —- ENTER 
100 PRINT "REBOBINEZ L& K7 --— 
11D'FOR I=0. TC. K F(I1)=0 


"FICHIER NUMERIQUE SUR CASSETTE 


modele 1 16K cassette FE 


en uersion disaue 


(VERSION 


DIH FCKH)I:REMEF 
60 PRINT "GARNISSAGE DU FICHIER F{" 3K: 


°)":REMEBE 


NEXT:REM7Z 
80 PRINT "SAUVEGARDE SUR K7 DU FICHIER DE F( 0 ) A F{* 3K: 


HO are 


212$ : GOSUR 1000:REM21 


REMISE à O DU FICHIER":REMD4 
NEXT:REMDE 


120 PRINT "CHARGEMENT DU FICHIER K7 DE F{ 0 } A FC° 35K: 


73 


430 INPUT "K7 - PLAY - ENTER 
140 PRINT °K7 -- STOP” 
150 RESUME NEXT:REH&4#4 
1000 83=":" * Ecriture K7 


END:REMA 


LIFSNGOSUENEENOEREMEX 


Eu 


1010 FOR I=0 TO K : A$=AS+STRS(FII) )+" 5: Es REMID 


1020 IF LEN(CAS)2225 AND I£K : 
5 PRINT #-1i:8# AS="3:":REM46 
1030 NEXT 

ETURN:REMED 
2000 J=-i1 Lecture K7 OE 
2010 INPUT #-1:4A%# 
2030 FOR I=1 TO LEN(AS):REMDF 


2030 IF MID#(A#$:1r1)="3" 1 J=Jri 


2040 NEXT 





AS=LEFTS(AS:LEN(CAS)I-1) 


AS=LEFTH(ASLENCAS)—-1) 


PRINT À# 


PRINT &8$ : PRINT #-1:4$ : 


PRINT A$:REM9Z 


5 FOJi=VALOHIDECAS 7 1+1)) 2 REMAC 


IF J=K THEN RETURN ELSE ZOG10:REMS9 
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Programme D'ESSAI N° 2 





Eu FINUM2/BAS (C) Roger Brousmiche et TRACE FF 

2 Configuration de base : modele 1 16K cassette FE 

D FD 
10 CLS : PRINT TAB(10) "FICHIER NUMERIQUE SUR CASSETTE (VERSION 
2)"2PRINT:REMSC 

Ph Initialisation EC 

30 CLEAR 50 : I=0 : J=0 : V=0 : B=0 : DIM ECY{(16)2LI#(16) :REMDF 
40 V=VARPTR(EC#(O)) : FOR I=0 TO 31 : READ J 3 POKE V+l:J : NEXT 
:REMA7 

50 V=VARPTR(LI#(O)) : FOR I=0 TO 31 : READ J : POKE V+I:J : NEXT 
:REM9D 

60 ‘ Data ecriture K7 C4 

F0 DATA 2081: 1277 107-417 Or Dr 717: 1757 2087 18: 2:REMEE 

80 DATA 205: 1957 27 2177 126: 2057 1007 2: 9357 1717 189:REMES 
00 DATA 327 2471 1207 1887 327 243 2057 2487: 17 201:REMEéS 

100 Data lecture K7 9C 

410 DATA 205: 1277 107 4 O7 O7 217? 175? 205: 187 T:REMCé 

1420 DATA 2057 1507 27 217: 2051 Sr 271 11977 99: 12417 189:REMES 
1430 DATA 32: 24721 1207 1887 327 24939 205: 248: 4: 201:REM3D 

140 ‘ Programme d'essai 74 

150 K=151 : DIM F{K) PRINT'GARNISSAGE D'UN FICHIER F{" 3K3 SE 
1REMSS 

160 FOR I=0- TO K 7 PUT)I=IFIES GNEXTEREMTE 

170 PRINT "SAUVEGARDE DU FICHIER SUR K7 DE F( 0 à À ENOSPR = ER) 
F:REMSE 

480 INPUT "K7 -- RECORD -- ENTER 21% V=UARPTR(IECE(DO)) GO 
SUB 250:REMF3 | 

190 PRINT "REBOBINEZ LA K7 -- REMISE 86 0 DU FICHIER":REM7A 

200 FOR I=0 TO K F{Ii=0 NEXT:REMEI 

240 PRINT "CHARGEMENT DU FICHIER K7 DE F{ 0 ) À ET REA SRE 
M1 

220 INPUT “K7 -- PLAY -- ENTER ” 11% V=eUVBRPTHILIÉ(O)) GOSU 
E ZSO:REM47 

AN PORSI=UNMEO KES SPRINT ETC ANNE PRIHT FRINTOUKTO OST 
OP" : END:REM83 

740 ‘ Sous-routine ECRITURE/LECTURE K? 10 

250 E=V ON ERROR GOTO 2680 : DEFUSR=V:REMZ3 

260 ON ERROR GOTO 0 V=UARPETR(IF(OK I) à IF V£0 V=U+25536:REMF I 


270 I=INT(V/256) : POKE B+r4V-25S6%1I 


POKE B+5;1 I=USR(VARFTR( 


F(0))) : RETURN:REMOZ 

280 IF VO : V=V+65536:REM6E 

290 I=INT(V/256) : POKE 14526:V-1#756 : POKE 1652731 RESUME NE 
XT:REMIA 


tet de synchronisation OA5H, ce qui prend À secondes 
à 500 bauds ou 62.5 octets/seconde. 


Il faut donc s'arranger pour réduire au minimum le 
nombre d'instructions PRINT #-1, en remplissant au 
mieux les blocs de 248 caractères maximum de chaque 
enregistrement. 


Pour ce faire on peut "concaténer" dans une variable 

A$, une suite de STR$ des éléments du fichier, en les 
séparant par un caractère non ambigu, par exemple un 

";", La chaîne est écrite sur la cassette dès que le 

nombre de caractères dépasse 234. Et on recommence 

ce processus jusqu'à la fin du fichier. 


Ce procédé, applicable aux fichiers à une dimension, 


est exploité dans le programme d'essai N° 1 ci-apres. 
L'écriture cassette se fait en 52 sec. et la lecture 
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en 66 sec. à 500 bauds (les temps doivent être divi- 
sés par 3 pour le modèle 3 à 1500 bauds). 


On conçoit aisément que pour accélerer encore le pro- 
cessus, il suffit d'écrire tout le fichier sur casset- 
te en un seul bloc, en y recopiant tout bonnement le 
contenu de la mémoire centrale. Ce n'est pas possible 
par l'instruction BASIC PRINT #-1. 


On aura donc recours au langage machine en utilisant 
l'instruction VARPTR pour localiser le début et la 
fin du fichier, et à USR pour l'exécution de sous- 
routines binaires écrites dans des lignes DATA. 


Ce procédé est exploité dans le programme d'essai 
N° 2 ci-après. 


Les sous-routines binaires d'écriture/lecture casset- 


te sont logées dans l'espace mémoire réservé pour deux 
fichiers "bidons" EC%(16) et LI%(16)... (pourquoi 

pas ?). Le DEFUSR est défini par : VARPTR(EC#(0)) à 
l'écriture où : VARPTR(LI#(0)) à la lecture et l'exé- 
cution est obtenue par : I=USR(VARPTR(F(0))), après 

un POKE de l'adresse finale du fichier VARPTR(F(K)), 

K étant la DIM du fichier F( ) à copier. 


Mais attention : du fait que la sous-routine se ter- 
mine juste avant, le dernier indice du fichier ne se- 
ra pas sauvé. La DIM sera donc fixée à l'unité supé- 
rieure (très important). 


L'écriture et la lecture s'effectuent en 14 séc. avec 
les mêmes paramètres que précédemment, soit un gain 
de temps (et de consommation de bandes) appréciable. 


Cette méthode accepte aussi les fichiers à plusieurs 
dimensions. Par exemple dans un programme de "boursi- 


cotage", on souhaite sauver sur bande des suites de 
100 cours successifs de 10 titres différents. Le fi- 
chier aura la configuration suivante : DIM F%(100,9), 
soit 10 colonnes (0 à 9) de 101 rangées (0 à 100). 

On écrira dans la ligne 2010 : V=VARPTR(F%(100,9)) et 
dans la ligne 2020 : I=USR(VARPTR(F#(0,0))). Seul 1" 
indice F#(100,10), dernière rangée de la dernière co- 
lonne ne sera pas sauvé sur la cassette. 

Ce fichier comprend 2020 octets qui seront écrits ou 
lus en 36 secondes à 500 bauds. Ceci vaut bien 3 li- 
gnes de sous-routine... non ? 


Ce programme tourne sur modèle 1, niveau 2 cassette 
ou disquette, et peut-être aussi sur le modèle 3, les 
CALL en direction de la ROM des sous-routines binai- 
res étant compatibles (voir TRACE N° 2, différences 
entre 1 et 3). 


Roger Brousmiche 





Raccourcissez votre amorce 


L'instruction PRINT #-1 qui commande l'écriture des 
enregistrements sur la cassette, fait précéder ceux- 
ci d'une ämorce de 256 octets nuls et ce, pour une 
longueur d'enregistrement maximum de 255 octets. 
C'est dire qu'au mieux, le rendement est de 50 % (et 
beaucoup plus faible si l'on échange seulement quel- 
ques octets...). 


L'objet du programme qui suit est de limiter cette a- 
morce à quelques octets, le temps d'assurer le démar- 


rage du moteur. Nous avons choisi 16 octets mais ce 
nombre peut être modifié au goût de chacun, après 
quelques essais, naturellement ! 


ATTENTION : ce programme est valable pour les "nou- 
vélles ROMs" (celles qui affichent MEM SIZE). Pour 
les anciennes, le traitement du PRINT # s'effectue 
après celui du PRINT à et quelques corrections s'im- 
posent. 


Principe 


L'instruction PRINT appelle une routine située en 
206FH de la ROM. À cet emplacement, nous trouvons un 
CALL 41CAH qui est une sortie vers le DOS (quand il 
existe), laquelle sortie est "bouchée" par un RET en 


vérsion cassette. C'est donc en 41CAH que nous place- 


rons un branchement vers notre routine d'écriture d' 
une amorce de 16 octets. 


Si l'on examine le contenu de la ROM après l'adresse 
206FH, nous trouvons : 


e0Ter CP LE til 

2074 : JR  NZ,207CH 

2076 : CALL 28H ; écriture 
COTON NE ; suite du 


de l'amorce 
traitement 


Quant à la routine d'écriture de 
te ainsi : 


0284 : CALL 
0287 : LD 
O8 ET 


l'amorce, 


démarre le moteur 
longueur de l'amorce = 
suite du traitement 


1FEH 


B,OFFH 256 


elle débu- 


No 
1) 


tre routine aura donc la constitution suivante : 


En assembleur : 


ORG 41CAH 
MODIF 
404OH 
BC 

CF" LU 
NZ,207CH ; 
01FEH 
B,16 
0289H 
2079H 
6CCH 


interception du PRINT 


; emplacement libre en RAM 


ce n'est pas PRINT #4 


longueur amorce 


retour au BASIC 


2) ou en BASIC : 


1 
2 


3 
m 


CLEAR 50 : DIM B(11) 

A$#'"*ROUTINE BINAIRE*! 

V=VARPTR(A$) A=PEEK(V+1)+256*PEEK(V+2) 

POKE 16842,195 : POKE 16843,PEEK(V+1) : POKE 16844 


, PEEK(V+2) 


5 
6 


7 


Il 


10 
20 
30 


10 


50 
60 


FOR I=0 TO 16 : READ B : 
DATA 193, 254, 35, 194, 124, 32, 205, 254, 1, 6 
16, 205 2127 02 os Der Ee2 : 

DELETE 3-7 ! FACULTATIF (REFAIRE RUN) 


POKE A+1,B : NEXT 


nous reste ensuite à faire un petit essai avec le 
programme ci-dessous : 


CLS 
INPUT ''PREPARER CASSETTE POUR ENREGISTREMENT"; E$ 
FOR I=0 TO 11 A=RND(10)-1+RND(0) PRINT A, 
PRINT # -1,A : NEXT 

PRINT : INPUT "PREPARER CASSETTE POUR RELECTURE"' ; 
E$ 

EORAL=-ORTONI 
FOR I=0 TO 11 


: NEXT 
NEXT 


INPUT:-1,B(I) 
PRINT B(I), 


Dans le cas où vous utilisez des valeurs indicées, 


LE 


y à tout de même intérêt à ne pas en "passer" une 


seule à la fois : 


30 
25 


50 








FOR I=0 TO 11 
: NEXT 

FOR I:=0 TO 11 STEP 4 : 
(I+2),A(I+3) : NEXT 
FOR I=0 TO 11 STEP 4 : INPUT#-1,B(I),B(I+1),B(I+2) 
,B(I+3) : NEXT 


: A(I)=RND(10)-1+RND(O) : PRINT A(I), 


PRINT #-1,A(I),A(I+1),A 


E. Ferrier 
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espionnage 


Sésame : 
ouvre-toi! 





En général, qui possède un ordinateur individuel équi- 
pé de disquettes ne se soucie guère de protéger ses 
programmes par des mots de passe... qu'il risque d' 
oublier lui-même ! Mais, perfectionniste "sur les 
bords", il tend toujours à améliorer ou à adapter cer- 
tains programmes du commerce et là, il risque de se 
heurter au cerbère qui a pour nom : PASSWORD : 


Pour qui dispose du système d'exploitation NEWDOS-80 
(version 2), le problème est résolu en quelques se- 
condes. : il suffit de taper "SYSTEM, 1,AA=N"... et les 
mots de passe sont désactivés. Mais que faire si on 
n'a pas la chance de posséder NEWNDOS-80 ? Très sim- 
ple : fabriquer une "fausse clé", un mot de passe 
"bidon" qui sera accepté par l'ordinateur en lieu et 
place du vrai... 


Les mots de passe sont codés sur 2 octets dans le Di- 
rectory et il est possible de les lire au moyen d'un 
utilitaire de "dump" disquette (SUPERZAP par exemple). 


10 CLS =: CLEAR 3000 : DEFINT À-Z 
C$="123456789ABCDEF" 


AND NOT *X : 












REFUSÉE! ÇA MARCHAIT 
TOUT DE MÊME MIEUX 
PAR ORAL 





Pour chaque programme, Directory com 
gnes de 16 octets. Les mots de passe sont localisés 

au début de la seconde ligne : les deux premiers oc- 
tets représentent le mot de passe de mise-à-jour du 
programme (update), les deux suivants le mot de passe 
d'accès (access). 

Pour tout code introduit en hexadécimal (4 digits),le 
programme SESAME donne en 4 secondes une série de 
mots de passe fictifs de 3 ou 4 lettres. Le nombre 
moyen est de 7 mots différents puisqu'il y a 26 puis- 
sance À mots de 4 lettres et 16 puissance 4 codes pos- 
sibles. 

Il reste alors à choisir le moins rébarbatif et l'ad- 
joindre au nom du programme protégé (sans oublier le 
séparateur ".") et l'ordinateur se laissera gentiment 
berner ! 


Exemple : 


CODE ? 9FE9 
CLES : RSPB, FOLH, LABM, RBRR, INLW 


D FF 
DS SESAME — (Ci 1983 Andre Henys et TRACE CS 2 2 
dus Configuration : modele 1 ou 3 disquette 1 FD 
Be FC 


DEFFN X{X2Y)=X AND NOT Y OR Y 
: U=26:REMI7 


20 DEFFN N(X)=16KINSTR(CS:2MIDS (HS 2 X > 1) )+INSTR(CS > MIDS (HS 7 X+1 7 1) ) 


*REMEF 
30 DIM FI(U):F2(U):G1(Uÿ:G2(U) 
2G1{I1):G20I1) : NEXT:REMEF 


FOR I=0 TO U : READ F1(I1):F2(1I) 


40 INPUT "CODE "35H$ : X1=FN X(1507FN NC1)) : X2=FN X(66?FN N(3)) 


:REMD? 


50 PRINT "CLES x ‘; : FOR D=0 TO U 


80 B=FN X(X1:FN KX(F1(C)rG1(D))) 


70 &=FN X(X2:FN X(F2(C):G2(D))) 


: FOR C=i TO U:REMID 
IF B<97 OR B>122 THEN 9O:REME4 


IF 4&97 OR ÀD>122 THEN 90:REMDA 


20 PRINT CHR#(A4-32):CHR$(B-32) 3; CHR$(C+64) 3 CHR$(D+64+32#(D=0))3 * 


3 "3 :REMCE 


90 NEXT C?D : PRINT : GOTO 40:REMSS 


100 DATA O0: O7 O7 O7 247 693 1987 


1 Tr ro ré ro 7230 PE te 


Li 
El 


en ER SE nl Mr ITA TRNE LE EE 


POUND ES GT tr SERRES 


2 2297 193971 1437 20587 147 1197 


130 DATA 267 841 2551 997 387 497 


bkz 7b3 1163 1727 2423 


410 DATA 96 1437 1347 1021 144» 


203 déy J27r 116r 1747487 373 
2931:REMS 


11001877 870005350777 2072704178 
32:REMSF 

1939 7b: 231: 24571 164: 2547 80 
1427 1P4:REMESF 
PH r A7 ans 070 Nr el 7/70 


29141 81 1517 743 2167: 121: 10REMSD 


727 243: ?4%y 1677 977 


ATA MESSE TES ENDES 


LES MES EME MTS CNE) 


67:REMAR 


a nr beny 
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bricolage 





:- Ouvrez votre modèle 1 


\ 
S 111 


sur le monde extérieur 


VPI2/F2 
BANDE AN THE REPUBLIC OF IRELAND 


CH | 





Nous arrivons maintenant à l'étape de montage de la 
carte brûleur d'EPROM dont vous avez trouvé le cir- 
cuit imprimé dans le numéro précédent (TRACE n° 6). 
Sont représentés ci-dessous le schéma électrique, une 
vue d'implantation des composants et une photo de la 
carte. Voici la liste des composants (toutes les ré- 
sistances sont en 1/4 W) : 


R1,R2 : 3,9K ohm 

R3 : 470 ohm 

R4 : 1,3K ohm 

R5 : 220 ohm 

R6,R7,R8 : 2,2 K ohm 

R9 : réseau 8 x 10 K ohm SIL 9.8 

C1 : 33 microfarad, 16 V 

C2 : 4,7 microfarad, 63 V 

C3 : 22 nanofarad 

D1-D4 : diodes 1N4448 

D5 : Led LD30A 

T1 : régulateur LM317 

T2 : transistor 2N2222 

CI.1 : convertisseur 2 x 12 V - VP12.12 
CI.2 : circuit intégré TALSOL 

CI.3 : support 24 broches pour EPROM 


Coté Composants 











(IT) 


Sur le support destiné à recevoir l'EPROM, il est pos- 
sible de venir enficher un système spécialement con- 
çu pour ce genre d'opération (non-représenté sur la 
photo) et qui permet un nombre important d'enfichages 
et de désenfichages des circuits sans risque d'usure 
des contacts (système à force d'insertion nulle) : il 
suffit simplement d'y poser l'EPROM (sans forcer) et 
d'actionner un petit levier qui vient refermer des 
contacts autour des 2} broches. Sur la photo et les 
schémas, on remarque un convertisseur 2 x 12 V qui 
permet de fabriquer du 24 volts (nécessaire à l'écri- 
ture de l'EPROM) à partir de la tension 5 V de la car- 
te. C'est une solution idéale mais coûteuse ! Pour 
cette raison, nous avons prévu une entrée 24 volts en 
courant alternatif pour raccorder une alimentation 
extérieure (cette dernière solution est justifiée 
uniquement dans le cas où vous possédez déjà cette 
alimentation, car bien entendu, son prix est supé- 
rieur à celui du convertisseur). 


La carte brûleur d'EPROM étant montée (ne pas oublier 
les 3 "straps" qui évitent l'emploi d'un circuit im- 
primé double face), il suffit de l'enficher sur la 
carte d'interface parallèle développée dans les numé- 
ros précédents, au moyen d'un petit connecteur laté- 
ral 26 contacts, ou en soudant des fils entre les 
deux cartes. 


Dans le prochain numéro, nous aborderons enfin le lo- 
giciel qui permet de mettre en oeuvre cette extension. 
A bientôt ! 


8 
x 
F1 
73 
4 
32 
Z 
4 
5] 
£ 
43 


Josué Bonifas 
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extensions 





Cocktail d'extensions Basic 





Une fois n'est pas coutume : ce programme s'adresse 
uniquement aux possesseurs de systèmes à cassette sur 
modèle 1. Vous n'êtes pas sans savoir qu'il existe 

des fonctions réservées au BASIC disque que l'on ne 
peut pas utiliser (enfin, en-principe !) en niveau 2. 
Ce Sont elles qui provoquent l'affichage du "L3 ERROR". 
Pourtant, leurs adresses d'interception sont bien 
réelles, et après quelques manipulations, j'en ai re- 
trouvé 15 : : 


DEF : 16732-16733 KILL 16786-16787 
FIELD : 16765-16766 SAVE 16801-16802 
CLOSE : 16774-16775 OPEN 16762-16763 
NAME : 16783-16784 PUT : 16771-16772 
RSET : 16795-16796 MERGE : 16780-16781 
CMD : 16756-16757 LSET : 16792-16793 
GET : 16768-16769 LINE : 16804-16805 


LOAD : 16777-16778 


Les autres fonctions utilisables sous DOS (FN, TIMES, 
CVI, CVS, etc...) provoque invariablement une SN ER- 
ROR. 


Nous nous retrouvons donc avec 15 fonctions que nous 
allons pouvoir exploiter de la même manière qu'un USR, 
avec cependant l'impossiblité de passer des arguments. 
Qu'à cela ne tienne : nous les passerons par quelques 
POKESs ! 


Le programme que je vous propose vous permet d'appe- 
ler à tout moment 8 routines en langage machine grâce 
aux mots-clés des commandes inutilisées en niveau 2. 
Nous allons les examiner l'une après l'autre. 


1 - USR (N) : permet le tracé instantané de lignes 
graphiques. En fait, je n'ai pas grand mérite pour 
cette routine puisqu'il s'agit de la retranscription 
en DATA de l'annexe 1 du livre "La pratique du TRS80", 
volume 2 (voir également le programme SEGMENT dans le 
numéro 5 de TRACE). Pour être tout-à-fait exact, j'ai 
très légèrement modifié cette routine (en espérant 
que les auteurs me pardonneront ce sacrilège !). Elle 
s'utilise comme ceci 


POKE 32267,X1 (abcisse du premier point) 

POKE 32269,Y1 (ordonnée du premier point) 

POKE 32271,X2 (abcisse du second point) 

POKE 32273,Y2 (ordonnée du second point) 

X=USR(n) (n=0 pour effacer, n=1 pour tracer) 


Remarque : si vous ne faites pas la série de POKEs, 
la routine trace une diagonale 0,0 - 127,47. 


2 - KILL : permet de créer un son sur la sortie cas- 
sette. Pour cela, faire : 


POKE 32545,F où F (0 à 255) est fonction de la 
fréquence. 
POKE 32547,D ou D (0 à 255) est fonction de la durée. 


3 - PUT : blanchit une portion de l'écran. Faire : 
POKE 32569,X : POKE 32570,Y (ou X et Y représentent 
respectivemnt les poids faibles et forts de l'adres- 
se écran du premier emplacement à blanchir (15360 à 
16383). 

POKE 32572,X : POKE 32573,Y ( même chose pour le se- 
cond emplacement à blanchir. Cette possibilité per- 
met le blanchissage d'un point sur 2 ou sur 3). 

POKE 32575,R (ou R est le nombre de rangées (lignes 
horizontales) à blanchir). 
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POKE 32582,C (ou C est le nombre de colonnes-1 à 
blanchir). 

POKE 32579,Z (ou Z est le code ASCII du caractère 
de blanchissage. En général, c'est 191). 


4 - GET : permet d'inverser les caractères graphiques 
d'une zone quelconque de l'écran. Faire : 


POKE 32603,X : POKE 32604,Y (ou X et YŸ Sont les poids 
faibles et Forts de l'adresse écran du premier empla- 
cement à inverser). 

POKE 32606,R (ou R est le nombre de rangées), 

POKE 32609,C (ou C est le nombre de colonnes). 


5 = OPEN : provoque le défilement vers le haut (scrol- 
ling) d'une partie quelconque de l'écran. Faire : 


POKE 32641,X : POKE 32642,Y (adresse écran du premier 
emplacement à faire défiler. ATTENTION : le premier 
emplacement se trouve en fait sur la deuxième ligne 
du rectangle qui défile !). 

POKE 32641,X : POKE 32645,Y (adresse écran du premier 
emplacement de la zone de destination. En général, 
cette adresse sera égale à la première diminuée de 

64 (valeur d'une ligne). Une autre valeur provoquera 
un "scrolling" en diagonale !). 

POKE 32647,R (ou R est le nombre de rangées moins 1). 
POKE 32651,C (ou C est le nombre de colonnes). 


6 - CLOSE : identique à OPEN mais le défilement a 
lieurvers lebas. Faire: 


POKE 32673,X : POKE 32674,Y (adresse du dernier em- 
placement mémoire à faire défiler (se trouve sur 1! 
avant-dernière ligne du rectangle qui défile). 

POKE 32675,X : POKE 32676,Y (adresse de destination). 
Généralement, c'est l'adresse précédente augmentée 

de 64). 

POKE 32679,R (ou R est le nombre de rangées moins 1). 
POKE 32683,C (ou C est le nombre de colonnes). 


7 - LOAD : identique à OPEN mais le défilement a lieu 
vêrs là gauche. Faire : 


POKE 32705,X : POKE 32706,Y (adresse du premier em- 

placement à faire défiler (2ème colonne du rectangle 
qui défile). 

POKE 32708,X : POKE 32709,Y (adresse destination. En 
général, il s'agit de l'adresse précédente moins 1). 
POKE 32711,R (nombre de rangées). 

POKE 32715,C (nombre de colonnes moins 1). 


8 - SAVE : identique à OPEN mais le défilement a lieu 
vêrs la droite. Faire : 


POKE 32737,X : POKE 32738,Y (adresse du dernier em- 
placement mémoire à faire défiler (avant dernière 
colonne du rectangle) ). 

POKE 32740,X : POKE 32741,Y (adresse de destination. 
Généralement, il s'agit de l'adresse ci-dessus aug- 
mentée de 1). 

POKE 32743,R (ou R est le nombre de rangées). 

POKE 32747,C (ou C est le nombre de colonnes moins 1). 


Les six dernières fonctions décrites ci-dessus sont 
pré-programmées pour agir sur la totalité de l'écran. 
Ainsi, en faisant directemnt PUT (sans POKES préala- 
bles), l'écran sera entièrement blanchi... OPEN, CLO- 
SE, LOAD et SAVE déplaceront la totalité de l'écran 


dans les À directions. 

Au fait, il reste encore huit mots-clés inutilisés... 
Voilà ! J'espère que vous n'hésiterez pas à utiliser 
ces nouvelles possiblités qui, dans les jeux notam- 


ment, autorisent des effets que seul le langage ma- 
chine pouvait apporter. Alors, la facilité de program- 
mation du BASIC et la rapidité d'exécution du langage 
machine, ça mérite bien le détour ! 





À REM "2" 39 

2 REM ------ EXTENSIONS BASIC CASSETTE (16 K) -------- 38 

3 REM = TRS-80 MODELE À ---------" 37 

4 REM ----- (C) 1983 TRACE ET SCHLICK CHRISTOPHE ----- 36 

SG REM ------"-"""" "2" 35 

b REM 34 

10 POKE 16561255 : POKE 1654627125 : CLEAR 50 : DEFINTA-Z : CLS: 
REM76 

20 PRINTa10"COCKTAIL DE ROUTINES EN LANGAGE MACHINE ":REMéé 

30 PRINT : PRINT:REM44 

&D PRINT TAB(13) "USRIN) : TRACE DE LIGNES DROITES":REMF2 

50 PRINT TAB(13) "KILL : SON SUR SORTIE CASSETTE ":REMOD 

60 PRINT TAB(13) PUT : BLANCHISSAGE DE L'ECRAN":REMS9 

70 PRINT TAB(13) "GET : INVERSION DE CARACTERES”:REMSE 

80 PRINT TAB(13) "OPEN  : DEFILEMENT VERS LE HAUT':REM25 

90 PRINT TAB(13) "CLOSE : DEFILEMENT VERS LE BAS ":REM33 

100 PRINT TAB(13) "LOAD : DEFILEMENT VERS LA GAUCHE":REMAC 
110 PRINT TAB(13) "SAVE  : DEFILEMENT VERS LA DROITE” :REM7S 
120 POKE 16576000 : POKE 16527126 : REM << USR(N) >> 62 

130 POKE 16786031 : POKE 16787127 : REM << KILL >> 43 

140 POKE 1677170595 : POKE 16772127 : REM €< PUT >> 3F 

150 POKE 16768089 : POKE 16769127 : REM << GET >> 22 

160 POKE 16762:127 : POKE 16763127 : REM €< OPEN >> 28 

170 POKE 1677431959 : POKE 16775127 : REM << CLOSE >> 14 

180 POKE 14777191 : POKE 16778127 : REM £< LOAD >> O4 

190 POKE 16801223 : POKE 16802127 : REM << SAVE >> 10 

200 PRINT : PRINT TAB(22) M ATTENTION. LI":REMIS 

210 PRINT TAB(15) "CE MESSAGE S'AUTODETRUIRA":REM4D 

220 PRINT TAB(17) "DANS: TRES EXACTEMENT":REM63 

230 PRINT TAB(19) "QUINZE SECONDES..."::REMED 

240 FOR A=32256 TO 32766 : READ E : POKE A:B : NEXT:REMSO 

250 FOR Z=0 TO 4999 : NEXT:REMC9 

260 Z=USR(1) : FOR Z=0 TO 49 : NEXT : Z=USR(0):REMD9 

270 FOR Z=0 TO 99 : ON RND(4) GOSUB 290:300:310920 : NEXT:REM77 
280 PUT : FOR Z=0 TO 49 : NEXT : GET : GOTO 330:REMO? 

290 OPEN : RETURN:REMGF 

300 CLOSE : RETURN:REMO1 

310 LOAD : RETURN:REMS4 

320 SAVE : RETURN:REM44 

330 CLS ? PRINT ” IMPRESSIONNANT " : KILL:REME3 

340 B=1 : FOR Y=0 TO 7:REM56 

350 A=1 : B=B+4 : FOR X=0 TO 45 : GOSUB 420 : SAVE + NEXT X * CL 
OSE:REM47 

360 A4=1 : B=B+4 : FOR X=0 TO 45 : GOSUR 420 : LOAD ?: NEXT X * CL 
OSE:REM43 

370 NEXTY:REMAD 

380 PUT : PRINT &216»" MAINTENANT “:93429:" LES ROUTINES "::REM9D 
390 PRINT @469:" SONT UTILISABLES ”:@600:" DIRECTEMENT "3:REMFF 
400 PRINT 47282” EN BASIC... "3:REME? 

410 IF INKEY#="" THEN 410 ELSE CLS : STOP:REM74 

420 POKE 325452A : POKE 325475 : A=A+1 : KILL : RETURN:REM9D 
4&3D REM ------" "2" SE 
R&D REM ---------- ROUTINES SOUS FORME DE DATA -------- si 
450 REM ------ "2" 77 
460 REM ---- FONCTION PLOT : (cf A. PINAUD & P. GIRAUD)- 6D 
470 DATA 2532332557 127: 205» 127 10:REMDI 
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480 DATA 253:117:0:6:0:14:02272127:30247:REMRS 
490 DATA 237:67:28312732057187 127132211793: 2431277r 120738: 1:REM8S 
O00 DATA 186:56:2:33687299 3 12149 187462175603 2r46325S 5442243 127:REMD 


310 DATA 1207146:242:552 1263237687 1037121: 1472423693 126:REM38 
520 DATA237:68; 111734261273 12471892562522203:47:50:30:127:REM9 


330 DATA 37:248:58253 127222413435: 50:292 127158 90; 127 : 193: REMB 
540 DAÂTASO:30: 127; 221719023734 1572217 15073; 507307 127?58:28:REM9 
390 DATA127:221:13420250:287127297r75r28: 127205 19:12724:REMS 
560 DATA 209:125:203;:47:50:30: 127345232493 08 7 24 12732214: 134: REMD4 
370 DATA&:50;28;: 12758; 30; 1272 132 50:90: 127221: 190:27567 15:REM7 


3980 DATA 221:150:2:50:30: 12798329 127:3221r134:1:50;:29:127:REMDI 


390 DATA 237:75:289 1277209: 19 12724 209162r1r324:2362:2:229:REM8 
À 
600 DATA 213:197:2453 1973 1217183331: 71:120:12 28:185:402S3"REM7 
3 


610 DATA S6:3:5:243245:90:193;: 120: 18923195: 106:538:0r41:41:REMAÀ 
620 DATA 41:541r41:417 121741463146: 14631357 1287147: 147371: 22:REM9D 
630 DATA O:25$717:30: 6072571262 183:25072417126:62: 128: 119: 175:REMS4 


840 DATA 184: 867; 13407343 13535: 092: 752371324432 564 3 13929343: 1263REMCE 
650 DATA 1761245131 120147r1665 110193209225; 201,299: 126:0*REM7C 


660 DATA 183:202:180:126:2057176»126»201:007000:0:0:REM67 
670 REM ------- FONCTION SOUND ==" 34 
690 DATA 717:38:0r46: 1271681625 1r211r2555 16:254:REM78 

690 DATA 68:62:2:211:2559 1625474592 239 217 201:REMOD 

700 REM ------- FONCTION WHTSCR ne 
710 DATA 217332060171 1r60r42r16r213229:REM6 

720 DATA 54191r1263:0:237r176r225r209r1r640:REMBE 

730 DATA 235:237:74295297r74rb13229952175201:REMI 

740 REM ------- FONCTION INVERT FN 
750 DATA 217:33:0r60:22116:2296rb4 1262549232? 2:REM7E à 
760 DATA 1982962093 127740741472 1983 bas 1191357 lot IREME 1 vo 


IRY 
770 DATA 238:22531:64:0:297:7/743:21:922263217: 2015REMFE Ne 
780 REM ------- FONCTION SCROLL UP =" 28 Vie 


790 DATA 2173933r564:60:17:0:60:68315:213:229:REMDS 

800 DATA 1:64:0:2973176432253 2093 1:04:0:239S:REMFF 

810 DATA 237;:7432953237374:b1:9%:235227172 201:REM84 
BANANE ESS FONCTION SCROLL DOWN ----------------- 03 
830 DATA 217:33:191:63:17:255: 63:67 15:213:?229:REMOD 

B40 DATA 1:64:0:237:184:225;:20931;:64:0:23S:REMDS 

B50 DATA 23/7:66:235:237r6b:b1:92:235:217:201:REMSA 
SGOSREMN--=-— FONCTION SCROLL LEFT ------------------- DE 
870 DATA 217:3331:60:17:0:60:6?:16:219:2209:REMC0O 

B80 DATA 1:63:0:237:1763:2253: 209: 14r1604:0:23S5:REME0 

890 DATA 297:74:295:2937:3741b1:9%:295:217:201:REM34 

SHOP EMEE FONCTION SCROLL RIGHT ----------------- E3 
910 DATA 217:33:2546933:17:2553 437642161213: 229:REMBC 

G20 DATA ne 2373184: 2%5:209:1:64:0:73S:REM89 

930 DATA 237:66:235:3237:64bhr36i:3%7:2952:217:201:REMDA 

980 REM --------------- QUF; C'EST FINI 11 SF 


CPE LE 
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utilitaire 


Un tri encore 
plus efficace 


Vous vous souvenez sûrement du programme de " tri ef- 
ficace" exposé par Roger Buvat dans notre numéro 3. 
Aujourd'hui, l'auteur nous propose une version amé- 
liorée permettant le tri multi-clés et multi-tableaux. 
Le luxe, quoi ! 


En attendant que les microprocesseurs de 16 bits et 
les mémoires de 128 K et plus se généralisent dans 

nos ordinateurs individuels, le présent programme 

nous permettra le tri direct de tous les tableaux 
constituant le fichier (si celui-ci tient dans la 
mémoire centrale), en fonction de critères multiples 
et en ordre ascendant ou descendant pour chacun d'eux. 
Dans son principe, cette routine dérive de la précé- 
dente mais porte sur un tableau virtuel résultant du 
chaînage des tableaux réels composant les enregistre 
ments. Il n'y a donc pas de limitation propre au nom- 
bre des tableaux susceptibles d'être triés, ni au nom- 
bre des clés puisque chaque tableau est une clé poten- 
tielle dans l'ordre des paramètres passés. 


L'appel de cette routine en BASIC consiste en une suc- 
cession d'instructions USR (paramètre). Pour simpli- 
fier un peu l'écriture, on pourra utiliser la forme 
U=USR(parami) OR USR(param2) or USR(param3)... Le pre- 
mier paramètre doit indiquer le numéro de l'enregis- 
trement du début du tri. Si celui-ci doit commencer 
au numéro 1 (cas général), il est inutile de fournir 
USR(1) qui est implicite par défaut. Les paramètres 
des USR suivants seront VARPTR(Variable(@)) concer- 
nant dans l'ordre la clé primaire, la clé secondaire, 
la clé tertiaire, etc... jusqu'au dernier tableau im- 
pliqué par le tri des enregistrements. Normalement 
ascendant, le sens du tri peut être inversé pour une 
ou plusieurs clés, en faisant suivre chacune d'elle 
par USR(1). Enfin le dernier paramètre à passer, ce- 
lui qui déclenchera le tri, doit être le numéro du 
dernier enregistrement que l'on veut trier. Si celui- 
ci se confond avec la fin des enregistrements définis 
(cas général), terminer tout simplement la série par 
USR(G). Dans l'exemple cité plus haut, pour le tri 
normal complet du répertoire d'adresses, la ligne BA4- 
SIC de commande sera constituée par : 
U=USR(VARPTR(VILLES(@))) OR USR(VARPTR(NOM$(G))) OR 
USR(VARPTR(PRENOM$(G))) OR USR(VARPTR(ADRESSES$(G))) 
OR USR(G) 


En insérant USR(1) entre les deux premiers USR, le 
tri sera en ordre descendant pour 1a VILLE et ascen- 
dant pour les clés suivantes. Si le paramètre de fin 
de tri s'avérait supérieur au numéro du dernier enre- 
gistrement défini, c'est cette dernière valeur qui 
serait prise en compte. Au cas où le paramètre de dé- 








but de tri serait égal ou supérieur au paramètre de 
fin de tri, celui-ci n'aurait évidemment pas lieu. 
Naturellement, les instructions USR doivent être pré- 
cédés par DEFUSR sous DISK BASIC ou par les POKE 16 
526 et 16527 en BASIC Level 2, pour le branchement à 
l'adresse du début de la routine. 


Les contraintes d'emploi sont assez classiques : 

- Tableaux de chaînes de caractères à une seule di- 
mension. 

- Même dimension pour tous les tableaux impliqués 
dans le tri. 

- Les éléments d'indice @ sont réservés, car ils sont 
utilisés par la routine pour le chaînage des-ta- 
bleaux. 

- Si l'on utilise des nombres (sous forme de chaîne 
de caractère ASCII) comme clés, il faut veiller à 
observer la même position du point décimal à partir 

de la gauche pour tous les éléments, en complétant 

par des espaces ou des zéros si nécessaire. 


Remarquons que les éléments d'un même tableau peuvent 
avoir des longueurs différentes et même nulles. Une 
recherche étant faite immédiatement avant le début du 
tri pour déterminer la longueur utile de tableau (l1i- 
mitée par la rencontre éventuelle d'un élément non 
défini), le dimensionnement des tableaux lors de leur 
déclaration par DIM peut donc être .supérieur à l'ef- 
fectif des éléments réellement définis. Pour la com- 
paraison des clés, la hiérarchie attribuée est la sui- 
vante 


- élément vide (longueur nulle ) ; 

- codes ASCII 29H (espace) à UOGH (escargot) ; 

- codes des lettres L1H à SFH ou 61H à 7FH ; 

- code 61H (variable suivant les générateurs de ca- 
ractères) ; 

— codes graphiques 80H à FFH. 


Ainsi l'ordre alphabétique est toujours respecté, que 
les lettres soient en majuscules ou en minuscules, ce 
qui évite les classements tels que DUPONT - DURAND - 
Dubois obtenus avec GSF. Entre lettres, chiffres et 
autres caractères, la hiérarchie est certes discuta- 
ble mais sans doute préférable à un ordre aléatoire 
comme dans un tri avec ENHBAS. 


Comparativement à la routine du numéro 3, celle-ci 
est un peu moins rapide pour le tri d'index. C'est 
évidemment la rançon d'une plus grande sophistica- 
tion. Mais elle reste cependant encore supérieure 
dans ce domaine aux routines de GSF et de ENHBAS 
pourtant réputées. 
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FEO0 


FEOG 
FEDS3 
FEDé 
FEG7 
FE09 
FEOB 
FEDC 
FEGD 
REOF 
FEi0 
BEA 
FE12 


cD7FD8 
110000 
7C 
FE40 
3009 
14 
2039 
ES 


FEi4 22 


FE17 
FEi8 
FEi9 
FEIE 
FE4E 
FE21 
FE22 
FE23 
FE24 
FE27 
FE28 
FE29 
FEZA 
FE2E 
FE2C 
FE2D 
FE30 
FE31 
FE32 
FE33 
FE34 

- FE35 
FE36 
FE37 
FE38 
FE39 
FE38 
FE3B 
FE3D 
FE40 


PF#43 


200C 
22ACFE 
niooco 


mt Sd CT PJ “4 En Hal 


ti GA) LE sd Os 0) | F1 Gi 


3] m1 Et 


FE44 3E3 


FE4é 
FE47 
FE48 
FE49 
FE48 
FE4C 
FE4E 
FE4F 
FES 
FES3 
FES4 
FESS 
FES6 
FE57 


FESS 


FES 

FESA 
FESD 
FESE 
FESF 
FE6D 
FE61 


5 DE 





petin 

g0iz0 
00139 
00140 


HUE 








SUPER TRI 


PE 


AUTEUR 5: 
COPYRIGHT 


it ve sie ue 


su us ne 





DR 
ir 
LD 
LD 
BDD 
ADD 
ADE 
LD 
CHSIBE EX 
INC 
LD 
INC 
LB 
RET 
B&Z LD 
XOR 
LD 
(R INC 
00470 LD 
GO480 LB 
O0490 INC 
00506 LD 
OGSi0 LD 
00520 LED 
00536 üR 
00545 EX 
60550 JR 
00580 LD 
00570 DEBUT | 
G0586 RET 
00595 INVERS LD 
Düé0G LD 
QG4ait RET 
SO&30 SUITE OR 
D0430 JR 
0064 DEC 
09650 JR 
O0660 IHC 
G9470 35 
004689 LE 
00850 FIN PUSH 
00700 EX 
60710 DEC 
09720 LD 
00730 DEC 
LD 
DEC 
LL 
&BD 
LD 
EXPLOF INC 
IRC 
_INC 
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MULTI-TABL 
UNE SEULE 


5 

ra 

mel 

De H] 

"= 
(Rnb) 
1m 
DT 
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0H 

NC VARPTR 
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DE >HL 
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STO #DEBUT 


m3 
ds | 
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PAS ER 


HL 





ITREE = ü 


VARPTE 


PàS FINI 
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FE£3 E7 
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I10O00QC 
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cs PA mes (fe Mes ff 





o 
FE 01390 
FE 01400 
FEE D1410 
FE 01420 
FE 1430 
FE 40 
FERE 51450 
FECD D4480 
FECI o 
FECS 0 
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LR Az {HL)i 
GR ä 

Ir 23FEËPL 
1 BE 

ü BC 

LD A:B 

OR © 

JR NZ EXPLOR 
Pop Hi 

RST 24 

IR Cs:8+3 
EX DE: HL 
LD DE ii 
EOR ñä 

88C HL:DE 
IR CrRAZ 
EX BE?HL 


ne 


OT 
CO UE TETE 
t+ Et « 


AL 
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DEAN 


Le ET 
Less] 


} Cu 
EI A 29 A9 TI A 





ti 


+ ay 8 rue Der mg (SE « D mob s | 


1Ln L 


1 Mu 5 


ts 
Fi 





ET) 


.. 


CDI 


su us we 


CTI 


use 


DE 20003 
IX:DE 
IVFDE 


IX 


ue 4 4m 


USTEPEI) AL 
Ar{HL} 
{TEST)7À 


TI 


TI 


TI 


SI ELEMENT NON DEFINI 


La 
er 
ee 
de 
mn 
LS 
z 
tt 


SI #FIN < DIM TABLEAU 


CARRY = 0 


SI #FIN < KDEBUT 


(NH DANS BE) 
HEN {H DANS BC) 
ST0 PTR DE DEBUT DU TRI 


SAUVE PTR DE TABLEAU 


I=0 
SAUVE N 
I=1+4 
SAUVE I 


SAUVE PTR DE -ES#$ CE) 
SAUVE PTR DE E$tCI+H) 
J-1=1-1 


STO VARPITR CLE PRIMAIRE 


SN DES Li 


SI {IX+00) = 0 = (IY+00) 


SI TOUT EN MAJUSCULES 
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J 


FEBE 





























23 01640 L 
FEDF 10EZ 01650 TRI7 
FEE1 37 Die 
FEEZ 05 Di670 TRIS B 
FEES 2008 01680 NZ TEST "ET Bio 
FEES CD36FF 01690 STEP 
FEES Z2457FF  D1700 HL:(STEP+1) 
FEEB Z0C4 01710 NZ7TRI4 = 
FEED G0 G1720 TEST : 
FEEE 3014 01730 NC? PERMUT 
FEFO D9 01740 
FEF4 Ei 01750 TRI9 HL 
FEF2 E1 01760 HL 
FEF3 FDEI 51770 1Y ; RESTAURE PTR DE ESil+Hi 
FEFS DDE1 01780 ÊL= 3: RESTAURE PTR DE E#il) 
FEF7 E1 01750 POP HE : RESTAURE 1 
FEF8 Di 01800 POP DE ; RESTAURE N 
FEF9 ES 01810 PUSH HL 
FEFA 09 D18270 ADD HL 7 BC 5 I+H 
FEFB EDS2 01830 SBC HLDE 5 I+H-N 
FEFD E 01840 POP Hi 
FEFE 2097 01850 JR NZTRI2 5 51 I+H-N <> D 
FFO0 Et 01860 POP HL 5 RESTAURE PTR DE TABLEAU 
FFO1 CSBOFE 91870 JP TRI 
FFO4 CD59FF D1880 FERMUT CALL LOoA 
FFO07 DD7402 01890 LD {1X+02) 7H 
FFOA DD7501 01500 LD CIX+04)L 
FFOD FD7202 01910 LD {IY+02):D 
FFi0 FD7301 01920 LE (IV+04):E 
FF13 FD7000 01930 LD {1Y+D00)7E 
FFié DD7100 01940 LD {IX+00)?C 
FF19 CD36FF 01950 CALL STEP 
FFC 20E4 D1940 JR NZ>PERHUT 5 SI PAS DERNIER TABLEAU 
FFE D9 01970 EXX 
FFiF ED42 01980 SBC HL BC 5 J-i-H 
FF21 38CE 01990 JR C?TRI9 5; POURSUITE DU CYCLE SHELL 
FF23 EE 02000 EX DE: HL 
FF24 Ei 02010 POP HL 
FF25 Ei 02020 POP HL 
FF26 ES 02030 PUSH HL 
FF27 FDE1 02040 POP 1Y : NOUVEAU PTR DE E#iJ+H) 
FF29 ED42 03050 SBC HL BC 
FF2E ED42 02060 SEC HL BC 
FF2D ED42 02070 SEC HLrBC 
FF2F ES 02080 PUSH HL 
FF30 DDE1 02090 POP 1X : NOUVEAU PTR DE Est} 
FF32 EB 02100 EX DE > HL 
FF33 C3R6GFE 02110 JF TRI3 t RETOUR ARRIERE (METZNER) 
FF36 210000 02120 STEP LD HL : 0000  STO VARPTR CLE COURANTE 
FF39 22 07130 INC HE 
FF34 5€ 02140 LD Er (HL 
FF3E 23 62150 INC HL 
FF3C 54 02160 LD D: iHL) 
FF3D 74 02170 LD A:D 
FF3E E3 02180 OR E 
FF3F CE 02190 RET z : SI DERNIER TABLEAU 
FF40 244CFE 02200 LD HLr{TRI2+84) 
FF43 EB 02210 x DEzHL 
FF44 2237FF 221 {D ÉSTEP+1):HL 
FF47 ED52 SEC HL:DE 
FF49 EB EX DE > HL 
FF4A Ci POP BC 
FF4B FDE1 POP 1Y 
FF4D DDEi POP IX 
FF4F DDES PUS] IX 
FF51 FDES P TY 
FF53 C5 PUSH BC 
FF54 DD19 ADD IX2DE 
FFS6 FDi7 8DD IY:DE 
FF58 C9 RÈT 
FF59 FD6602 i LOAD LD Hs 
FFSC FDéE01 LD L> 
FFSF DD5607 LD D: 
FF42 DDSEO4 LD E: 
FF45 DD4600 LD B7 
FF68 FD4E00 LD C3 
FFéB C9 RET 
0000 END 
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technique de programmation 





Lignes vitales 





La définition d'une ligne vitale pourrait être celle- 
ci : "ligne dont la concaténation (la fusion) avec la 
ligne de numéro immédiatement inférieur entraînerait 
une ou plusieurs anomalies de fonctionnement". 


Voici un petit exemple. Le programme ci-dessous ef- 
fectue la mise à zéro des éléments du tableau A(i) 
sans utilisation d'une boucle FOR/NEXT 


10 DEFINT A-Z : N=25 : DIM A(N) 
20 I=1 

30 A(I)=0 

HO I=I+1 

50 IF I<=N THEN GOTO 30 

60 END 


Nous remarquons que la concaténation de la ligne 30 


avec celle de numéro immédiatement inférieur (ici 20), 


entraînerait un "UL? ERROR" en ligne 50. Les lignes 
20, 40 et 50, quant à elles, peuvent être fusionnées, 
ce qui donnerait : 


10 DEFINT A-Z : N-25 : DIM A(N) : I=1 
30 A(T)=0 : I=I+1 : IF I<=N THEN GOTO 30 
60 END 


Par l'exemple précédent, nous pouvons "sentir" intui- 
tivement l'existence pour tout programme BASIC d'un 
noyau minimal" composé de l'ensemble des lignes vi- 
tales de ce programme. En nous référant au programme 
ci-dessus, nous pouvons raisonnablement penser avoir 
trouvé le noyau minimal composé des lignes 10, 30 et 
60. Pourtant, il n'en est rien car la ligne 60 peut 
être fusionnée à la ligne 30 qui devient alors : 


30 A(I)=0 : I=I+1 : IF LI =N THEN GOTO 30 ELSE END 


Dans la première phase de la fusion des lignes de no- 
tre exemple, nous avons employé le caractère ":" pour 
concaténer deux lignes (mode ":"), Maintenant, nous 
inaugurons un autre mode avec le ELSE (que nous appe- 
lerons mode "ELSE"). Ce n'est qu'après l'application 
de ces deux modes que le noyau minimal est parfaite- 
ment déterminé. 

Mais alors que les règles de concaténation du mode 
":" sont relativement simples, celles du mode "ELSE" 
semblent moins évidentes. Nous nous contenterons donc 
dans ce qui suit du premier de ces modes qui, s'il ne 
détermine pas le noyau minimal, le cerne de près. 


Voici donc les règles qui permettent de déterminer en 
mode !"':! un noyau dans lequel se trouveront toutes 
nos lignes vitales. Font partie de ce noyau : 


1- la première ligne du programme BASIC 

2- toute ligne dont le numéro suit un GOTO, GOSUB ou 
RESUME 

3- toute ligne succédant à un REM 

= toute ligne succédant à un IF 

5- toute ligne dont le numéro peut éventuellement 
suivre un THEN ou un ELSE (équivalent du GOTO). 


Toute ligne incluse dans le noyau grâce à un ou plu- 
sieurs des critères 1, 2, 3 ou 5 est une ligne vita- 
le. Par contre, celle incluse dans le noyau grâce au 
critère 4 exclusivement n'est pas forcément une ligne 
vitale. Ainsi, l'application de la concaténation en 


mode "ELSE" ne diffère en ses règles que sur le cri- 
tère 4 (critère + restrictif). Voir pour cela, notre 
premier exemple. 


Voyons maintenant la structure du programme de recher- 
che des lignes vitales. Je ne reviens pas dans cet 
érticle sur l'organisation d'un programme BASIC en 
mémoire centrale, celle-ci étant clairement expliquée 
dans les numéros précédents de TRACE. Interessons- 
nous plutôt à la liste du programme proprement dit. 
D'abord, que fait-il ? I1 stocke dans le tableau T(I) 
les lignes du noyau déterminé par les règles de con- 
caténation en mode ":", et ceci, pour tout programme 
BASIC. Voici quelques explications. 


- Ligne 64000 : L=numéro de ligne, PT-adresse poin- 
teur BASIC, T()-=tableau des résultats (lignes vi- 
tales). 

— Ligne 64001 : 16548 pointe au début de la zone 
BASIC (programme). F est utilisé comme drapeau (1 
si la prochaine ligne à rencontrer va dans le ta- 
bleau). N-=nombre de lignes rangées dans le tableau. 

- Ligne 64002 : Est-ce la fin du programme ? 

- Ligne 64005 : : On pointe l'octet numéro de ligne. 

- Ligne 64004 : L prend la valeur du numéro de ligne. 

- Ligne 64005 : Est-il déjà prévu de le ranger dans 
T ? 

- Ligne 64006 : Il n'y a plus de raison a priori, que 
la prochaine ligne soit rangée dans T. 

- Ligne 64007 : On pointe au premier octet du "texte!" 
de la ligne BASIC. 

- Ligne 64008 : 141 est le token de GOTO, 145-GOSUB, 
159=RESUME. 

- Ligne 64009 : 143-IF, 147-REM. F=1 : la prochaine 
ligne rencontrée sera rangée dans le tableau. 

- Ligne 64010 : 202=THEN, 149-ELSE. 

- Ligne 64011 : On pointe l'octet suivant du "texte! 
BASIC. 

- Ligne 64012 : Est-ce 1a fin de la ligne ? 

- Ligne 64013 : Pointe le 1er octet de la ligne BASIC 
suivante. 

- Lignes 64014 à 64022 : Sous-programme d'insertion 
de L dans le tableau T des résultats. Pas la peine 
d'insérer la même valeur plusieurs fois. 

- Lignes 64032 à 64040 : U7=code ASCII de "O" et 57- 
code ASCII de "9". 

- Ligne 64037 : Hl-token de ",". 


Passons maintenant au mode opératoire. Le programme 
ci-joint étant introduit, frappez "RUN" et, au bout 
d'un certain temps, le message "READY" apparaît. Ta- 
pez alors "?N'" pour connaître le nombre de lignes ef- 
fectivement enregistrées dans le tableau T. Vous de- 
vez obtenir 25, ce qui signifie que notre programme 
de 41 lignes en compte moins de 25 qui soient vitales. 
Pour obtenir les 25 "élues", il ne reste plus qu'à 
frapper : 


FOR TS TON PPRENTÈT(N);UNEXT 


Comment utiliser VITAL pour ausculter d'autres pro- 
grammes que lui-même (car c'est là le but) ? Il faut 
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le sauver sur cassette ou disquette en ayant soin d' DA=PEEK(16633)+256*PEEK( 16634)-2 
ajouter à la fin de la ligne 64008 : DPOKE 16549,A/256 : POKE 16548,A AND 255 


è >CLOAD "VITAL" 
D ae EU >POKE 16549,66 : POKE 16548,233 


A ce stade, les deux programmes doivent figurer en 
mémoire, l'un à la suite de l'autre. Faire alors : 


Le programme à ausculter étant chargé en mémoire (nu- 
méro de ligne inférieur à 64000), il est nécessaire 
de faire un "MERGE" avec VITAL. En version disque, 
pas de problème avec la commande MERGE à condition 
que VITAL soit sauvé en ASCII (SAVE "VITAL'"',A). En 


vérsion cassette, on peut frapper directement au cla- >RUN 64000 
vier dans le cas du TRS modèle 1 (et si l'on ne pos- (attendre le READY) 
sède pas de routine réalisant cette fonction) : D?N 5: FOR 1-1 TOUN = PRINT T( TL) 2NEXT 


64000 DEFINT A-7 : DEFSNG L:P27T = DIM T(40):REMIR 

b4001 PT=PEEK(168548) #FP564PEEK( 16549) : F=1i : N=<O:REMCS 

840072 IF PEEK(PT)+PEEK({PT+1)=0 THEN END:REMA7 

b4003 PT=PT+2:REME7 

b4D04 L=PEEK(PT)+2560*4PEEK(PT+1) :REMFS 

64005 IF F=1 THEN GOSUR 64D01S5:REMCE 

64006 F=0O:REMERS 

b4007 PT=PT+2:REMES 

b4008 P=PEEK(PT} : IF P=i4i OR P=145 OR P=159 THEN 64028:REMS#4 
64009 IF P=143 OR P=147 THEN F=i1:REMD7 

b#D10 IF P=207 OR P=149 THEN 64039:REÈM4E 

b#&011i PT=PT+1:REMEO 

b4012 IF PEEK(PT)=0 THEN 64013 ELSE 64008:REMF3 

64013 PT=PT+1 : GOTO 64O00T:REMIE 

b4014 * Sous-rrogramme d'insertion de L dans T(i) avec O<i<N F8 


b4015 IF N=0 THEN 64070:REM4F 

b4D16 G=1:REMA9 SOUE 
b#017 FOR I=1 TO N : IF T{I)=L THEN G=0 : I=N'REMB4 Voir % 
b»D1i8 NEXT I:REM24 = Ace 
64019 IF G=0 THEN 4640722:REMSD0 & = 
b4D0Z0 N=N+1:REMS3 
64021 TIN)=L:REMDD 
64022 RETURN:IREMSE 
24023 ‘ Sous-programme filtrant les octets gerant le curseur EF 






U2 
» 
ROLE 


b4k0O?4 PT=PT+1:REMD3 

64025 IF PFEEK(PT)}0 AND PEEK(PT)£33 THEN 640X4:REMCE 

64026 RETURN:REMSA 

84027 ? Routine de traitement des GO0TO: GOSUR et RESUME ER 
b40?28 GOSUR 64024:REMS59 

64029 M$="":REMSF 

64030 M$&=MS+CHRS(PEEK(PTI):REMEZ 

b40G1i PT=PT+Ii:REMCC 

64032 IF PEEK(PT)547 AND PEEK(PT)£SS THEN K=K+1 : GOTO S4O03S0:REM 


64033 L=VALIMS$S):REMON 
684034 GCOSUR &4DIS:REMSS 
b4035 ‘ Ici intervient la possibilite d'un ON.. GOTO ou autre € 


64036 GOSUR 64025:REMSO 

64037 IF PEEK(PT)=44 THEN 64078 ELSE é6401Z2:REM8I 

64038 ‘ Routine de traitement des THEN et ELSE ED 

64039 GOSUE &4024:REM4E 

B4O40 IF PEEK(PT)'H47 AND PEEK(PTI£LSS THEN 64029 ELSE 44012:REHAC 


* VITAL - (C) Benoit Gilan et TRACE 
64052 ‘ Configuration : modeles 1: 3 et compatibles 
18 3 48 K: cassette ou disquette 


Benoît Gilon 
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utilitaire 


Et désassemblez 





PC-1500 + CE-150 + CE-151 (ou CE-155) 
1384 octets 


Matériel : 
Programme + données : 


Depuis le numéro 5 de TRACE, vous avez appris à con- 
naître l'assembleur de votre machine. Seuls deux ou- 
tils vous manquent : un désassembleur et un assembleur 
mnémonique. Je vous propose ici le premier de ces deux 
programmes : 


Il est en BASIC et occupe 1817 octets (et pourtant 

il est rapide...). Ne possédant pas de module 8K mais 
seulement un module 4K, je n'ai pas pu intégrer les 
mnémoniques sous forme de DATA dans le programme mais 
j'en ai fait un fichier sur cassette (évidemment, le 
possesseur du CE-155 n'aura pas ce problème). 


1ère étape : rentrez le petit programme qui suit, 
exécutez-le et rentrez toutes les chaînes indiquées 
sur la fig. 1, puis préparez votre magnéto KT pour 
l'enregistrement et appuyez Sur ENTER]. 


5880:DIM A$C255)% 
18:WAIT 9 
9812:FO0R I=0T0 25 
JPRINIET; 
0 
9020; INPUT A$(I): 
PRINT :NEXT 





I 
5039:WAIT 58: 

PRINT "POSIT 

IONNEZ LA K7 

“:WAIT : 

PRINT "ET AP 

PUYEZ SUR EN 

TER" 

5058:PRINT #H"FICN 

OR"; A$CK) 
A : OSBCA, XI 13 : ARDCA, (Y) 38 : ACPA, UI 
1 : ASBCA, (X) 28 : BLDA, Y! 33 : ACPA; (LU) 
2 : 6ADCA, XI 21 : ALDA, (Y) 49 : BLDUh,A 
3 : PADCA, (X) 22 : ACPA, Y! 4) : BANDA, (U) 
4 : ALDA, X] 23 i ACPA, (Y) 42 : @8LDUI,A 
5 : BLDA, (X) 24 : BLDYh,A 43 : BORA, {U) 
6 : OCPA, AI 25 : PANDA, (Y) 44 ; ADSBCA, {U) 
? : ACPA; (X) 26 : ALDYI,A 45 : AUORA, <X) 
8 : 8LDXh,A 27 : BORA, (Y) 46 : S8LD(U),A 
3 : BANDA, (X) 28 : BDSBCA, (Y) 47 : ABITA, (U) 
18 : ALDXI,A 23 : BYDRA, (X) 48 : 8 
11 : BORA, (X) 38 : BLD(Y),A 49 : 9 
12 : BDSBCA, (X2 31 : PBITA, (Y) SBEEN 
13 : AXORA, (X) 32 : ASBCA, UI Fo} CURE. | 
14 : SLD(CX),A 33 : BSBCA, (U) S2- 1 
15 : ABITA, (X) 34 : BADCA, UI 53 : 4 
16 : BSBCA, Y! 35 : BADCA, (LU) 54 : 0 
17 : 8SBCA, (Y) 36 : ALDA, UI 55 : 4 
18 : BADCA, Yi 37 : OLDA, (U) 26 : 8 


maintenant! 


97% 
38 : 
9923 
198 
191 
182 
183 
184 
195 


D22%93323S%% 


BINCXI 
8LDI(X),A 
B8DECXI 
BLDD(X),A 
8INCX 
BLDIA, &X) 
BDECX 
BLDDA;, (X) 
ILDXh, n 
IAND(X);n 
1LDXI;, n 
1OR(ÇXDyn 
1CPXh; n 
18IT(X);n 
ICPXIz n 
1ADD(X)yn 
BJINCYI 
ALDI(Y),A 
ADECYI 
8LDD(Y),A 


: BINCY 
: BLDIA, (Y) 
: BDECY 
: BLDDA, CY) 


1LDYN; n 
TAND(Y);n 
ILDY!; n 
IORÇY);n 
1CPYh;, n 
IBIT(Y)in 
ICPYIrn 
1ADD(Y);n 


: BINCUI 


ALDJ(U),A 
ADECUI 
ALDD(U),A 
: BINCU 
ALDJIA, (U) 
ADECU 
ALDDA, {U) 
1LDUh, n 
1AND(U);n 
: ILDUI,;n 

5: IORÇU);n 
: ICPUh;n 

: ABJTCU);n 
: ICPUI,n 

n 1ACD(U), n 


+ + + 


D92990009209%S2 


: 8 
HE, 


es ne nn + + De + + ++ 0» + 0 © + 0 © 


133 
194 

9 135 
BSBCA, Xh 196 
LJRNC+n 13? 
6RDCA, Xh 198 
LJRC+n 139 
8LDA, xXh 268 
1 JRNH4Nn 281 
8CPA, Xh 282 
LJRN+n 283 
1DJNZ-n 284 
LJRNZ+n 285 
ORET] 286 
LJRZ+n 207 
BDADCA, (X) 208 
LJRNU+N 289 
1JR+4n 219 
LJRU+N 211 
8SBCA, 212 
LJRNC-n 213 
BRDCA, Yh 214 
LJRC-n 215 
9LDA, Yh 216 
LJRNH-n 21? 
2CPA, Yh 218 
1JRN-n 219 
: 220 
LJRN2Z-n 221 
1JRZ-n 223 
BDADCA, (Y) 224 
LJRNU-n 225 
1JR-n 226 
LJRU-n 22? 
BSBCB; Uh 228 
2SBCA, (HW) 229 
BADCA, Uh 239 
ZADCA, D) 33] 
ALDR, Uh 232 
2LDAÀ, (W) 

: ACPA, Uh 

:2CPAE CH) 208 
ASPU 235 
2ANDA, («W) 236 
2LDS,W 32 
ZORA; (UD 538 
ADADCR;, {U) 538 
2RORA; (W) 3548 
2LD(W),A 41 
2BITA, (W) 242 
2 243 
1SBCA;n 244 
8 245 
IADCA; n 246 
L) 
LD, n . 
C) 
LCPArn 5 200 
B8RPU 251 
1ANDA, n 252 
2JNP4 253 
IORA, n 254 
C] 
1XORA;, n 2 
2C8LLH 
18] Tê; n 
8 
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Me De ns 4 04 ns ne en ne er es + %e ns + ne 0 nn ne ne se ns De où en 0 ne ne 0, ne ne + se à 


: 0 


Be 6e De ne 9 © + 6e Ds 1 + de 01 +1 + es es + 6x + 01 0 + 


A 


iCALLC;n 
) 
LCALLANH, n 
e 
1CRLLH,n 
8 


POQUETTE 


ICALLNZn 
8 
ICALLZn 
8 

ICALLn 

a 


ICALLU, n 
2ENTU 
BRRA 


a 
8SRD 
2 


BSRÀ 
8 
2SLD 
a 


ASLA 
C] 
ARLA 
a 
BINCA 
1EUL+n 
ADECA 
AERR 
8SPU 
ARTS 
BRPU 
BERR]j 
C] 


8 

C) 
3AND(W),n 
4 
30R(W),n 
a 
3BIT(W),n 
8 
3RDD(W);n 
a 

2SWP 

aCcLS 

BRUF 

8 
8LDI(Y), CX) 
8 


CP IA: CX2 





POQUETTE 





2ème étape : entrez le programme DESAS.2.0, sauvez-le 
sur K7 (nul n'est à l'abri d'une perte de programme), 
exécutez-le ; aux "BIPS", positionnez votre K7 en lec- 
ture sur le fichier et appuyez sur ENTER, répondez 

au point d'interrogation par une adresse de début de 
désassemblage et laissez tourner... 

N.B. : Il n'est pas nécessaire de recharger le fichier 
à chaque fois, le chargement fait, exécuter le pro- 
gramme par DEF Z. 


Architecture du programme : 


RETURN 

:FOR 1=1T0 LEN 

B$:1F MID$ (B$ 
, 1, 1) ="W"THEN 

392 


1:DIM A$(255)*19 
55:BEEP 19:PRINT 
: INPUT #"FICNO 
R'3A$CX) 
69:"Z"INPUT X:S=8 


Lignes 1-55 
Lignes 60-61 
Lignes 70-71 
Lignes 75 
Lignes 80-85 
Lignes 87-95 
Ligne 100 
Lignes 200-203 
Lignes 300-307 
Lignes 1000-1001 


: 1ère initialisation 

: 2ème initialisation 

: impression hexa de l'adresse 

: si préfixe &FD—> 2000 

: impression hexa des octets 

: impression mnémoniques 

: opération avec 1 octet opérande 

: opération avec 2 octets opérandes 
: opération avec 3 octets opérandes 
: traduction décimal—>hexa 

Lignes 2000-2999 : 


en cas de préfixe &FD 


Vous programmiez ? eh bien, désassemblez à présent... 


DESSS".760 


K$="BPOPX": 


GOTO S 


2085:1F R=&A4BLET 
K$="DINCXh ": 


GOTO S 


K$=" SPOPA": 
GOTO S 
2821:1F R=B98LET 
K$="2PUSHY" : 

GOTO S 


5:1F X<P0R X26 
5535G0T0 68 


61:M$="9123456783 


ABCDEF ": CSI2E 


l 
20:WAIT B:A=INT € 


xX/256):GOSUB 1! 
DBQ:LPRINT A$; 


71:05 (CX/2569 INT 


(X/256))*256: 
GOSUB 1298: 


:NEXT I:PRINT “ 


ERREUR" 


: Z=I:A=PEEK CX+ 


1):GO0SUB 1998: 
C$=A$: A=PEEK ( 
X+2):GOSUB 198 
D:C$=C$S+AS$ 


: B$=LEFTS (B$,2 


—1)+C$+RIGHTS 
(B$, LEN B$-2) 


:A=PEEK (X+3): 


GOSUB 1980 


28086:1F R=&SBLET 
K$="BDINCYh": 


GOTO S 


2087:IF R=&GBLET 
K$=!"BINCUR ": 


GOTO S 


2908:IF R=&42LET 
K$="DDECXR ": 


GOTO S 


2089:1IF R=&SZLET 
K$="DDECYh": 


2822: 


2023: 


2824: 


2025: 


IF R=&ASLET 
K$=!"PPUSHU": 
GOTO S 

IF R=&AALET 
K$="DLDA, F": 
GOTO S 

IF R=&BILET 
K$="DHALT": 

GOTO S 
IF R=&BALET 

K$="@LDA, 1": 


LPRINT A$;" "; 
25: 1F PEEK X=6FD 
GOTO 2208 
89:K$=A$(PEEK X) 
85: GOSUB 800 
87: B$=RIGHTS (K$;, 
LEN K$-1) 
98: ON VAL K$GOSUB 


:B$=LEFTS (B$, 
LEN B$-1)+A$: 
RETURN 

: FOR I=-2T0O VAL 
K$: Q=PEEK A CXEI 
>): GOSUB 1298: 
LPRINT À$; 

BO5:NEXT 1:RETURN 

19982:P=INT (A/16) 

:A$=MIDS (M$ 
Pl: 


109, 209, 300 
95: LCURSOR 16: 
LPRINT B$: X=X+ 
VAL K$+1:GOTO 
20 1221:Q=((CA/16)-P) 


190:B$=LEFTS (B$; X16:A$-A$+ 


GOTO S 


2819:1F R=&G2LET 
K$="DDECUR ": 


GOTO S 


2911:1F R=&4S8LET 
K$="@LDX, S": 


GOTO S 


2012:1F R=858LET 
K$="BLDX, P": 


GOTO S 


2813:IF R=&SALET 
K$="DLDY, X'": 


GOTO S 


2814:1F R=&GALET 


GOTO S 
2026: IF R=&BELET 
K$="pDI": 
GOTO S 
2827:IF R=&COLET 
K$="BRDP": 
GOTO S 
2028:1IF R=8&CILET 
K$="DSDP": 
GOTO S 
2829: IF R=&CS8LET 
K$="BPUSHA": 
GOTO S 
2038: IF R=&CALET 


LEN B$-1):A= 
PEEKBCA EE 
GOSUB 1908:B$- 
B$+A$ : RETURN 


289:FOR 1=1T0 LEN 


B$:1F MID$ (B$ 
, 1; 1)="W"THEN 
202 


2@1:NEXT I1:PRINT " 


ERREUR" 


202:2=1:A=PEEK CX+ 


1):GOSUB 1228: 
C$=A$S:A=PEEK ( 
xX+2):GOSUB 198 
D: C$=C$+A$ 


2089: LPRINT 


MID$ (M$, Q+1 
s 1): RETURN 
"ÉD" 3 
I X=X+I:R= 
PEEK X:IF R= 
&i8LET K$="9 
LDX, Y": GOTO 
So 


2081:1F R=8&28LET 


K$="@LDX, U": 
GOTO S 


2002:1F R=&ALET K 


$="GPOPX": 
GOTO S 


2093:1IF R=&IALET 


K$="pPOPY": 


K$="BLDU, X": 


GOTO S 


2015:1F R=&4CLET 


K$="BRBF": 
GOTO S 


2916: IF R=&A4ELET 
K$="BLDS, x": 


GOTO S 


2017:1F R=&SELET 
K$="BIJP(X)": 


GOTO S 


2018:IF R=&BILET 


K$="pE I": 
GOTO S 


2019:1F R=&88LET 
K$='"DPUSHX": 


2831: 


2032: 


2033: 


2999: 


K$="BADDX%, A" 
:GOTO S 

IF R=&DALET 
K$="DADDY, A" 
: GOTO S 

IF R=&EALET 
K$="pADDU, À" 
: GOTO S 

IF R=&CELET 
K$="@LDI, A": 
GOTO S 
K$=LEFTS (A$ 
(PEER 
FH'+RIGHTS 
A$(PEEK X);, 
LEN A$(CPEEK 


203: B$=LEFTS (B$,2 
-1)+C$+RIGHTS 
(B$, LEN B$-2): 


GOTO S 
29094:IF R=&ZALET 
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GOTO S 


X25 19 GOTBLS 


2029:1IF R=&SALET 
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nouveaux matériels 





Un nouveau poquette : 
le Sharp PC-1245 








A première vue, le nouveau POCKET de chez SHARP res- 
semble beaucoup au PC-1251... En fait, cette machine 
est son héritière directe tout d'abord, le micropro- 
cesseur est le même (donc compatibilité du langage 
machine entre PC-1251 et PC-1245)... Quant au BASIC, 
aux instructions RS-232C près (INSTAT, OUTSTAT, etc...) 
il est à 99 % identique à celui de son prédécesseur 


Toutes les fonctions BASIC standard sont présentes : 
INPUT? PRINT, WAIT, PAUSE, USING, IF-THEN, NOT et la 
possibilité, avec le signe &, de traiter des nombres 
héxadécimaux. 


Les opérateurs alphanumériques et numériques Sont aus- 
si au complet ; on regrettera seulement que les fonc- 





tions trigonométrique hyperboliques ne soient pas pré- 
sentes. 


Du côté des entrées-sorties, le PC-1245 est doté d'un 
affichage de 16 caractères et d'un clavier "QWERTY" 
de 52 touches. Comme sur le PC-1251, il existe sur le 
côté droit de l'appareil un règlage du contraste de 
l'affichage. 


En mémoire, le PC-1245 est pourvu de 24K de ROM et de 
2,2K de RAM utilisateur. 


Mais la grande nouveauté de ce pocket est (pour SHARP) 
la disparition du MODE RESERVE (assignation des tou- 
ches) au profit de touches préprogrammées : en effet 
18 touches du clavier sont assignées (sans possibili- 
té de changement) aux 18 fonctions BASIC principales. 
Ex : F— GOTO, M—CSAVE, etc... 


Du côté des extensions, le PC-1245 ne peut pour l'ins- 
tant être relié qu'au CE-125 (utilisé également sur 
le PC-1251). 


I1 s'agit d'un combiné imprimante/magnétophone à micro 
cassettes. L'imprimante est thermique (on pourrait le 
regretter car les listings sur papier thermique ne 
sont pas impérissables...) et commandée par les ordres 
LLIST et LPRINT (intégrés au PC-1245). Le magnétophone 
utilise des microcassettes standard SONY et est com- 
mandé par les ordres CSAVE, CLOAD, CLOAD?, CHAIN, 
PRINT#, INPUT+# et MERGE (intégrés au PC-1245). Le 
combiné PC-1245+CE-125 tient parfaitement dans une 
pochette ou une mallette (dimensions du combiné 

135 x170 x19,5 mm): 

Daniel Glazman 


Un autre clavier 
pour votre poquette 


La nouvelle interface CE-153 pour le PC-1500 ressem- 
ble énormément à une tablette digitaliseuse. Il ne 
s'agit pourtant que d'un clavier sensitif de 140 tou- 
ches. Ses dimensions réduites (170 x 230 mm), permet- 
tent à l'ensemble PC-1500 de conserver son caractère 
“poquette". 


Avec la tablette, SHARP fournit une cassette conte- 
nant le logiciel d'exploitation, un câble PC-1500 - 
CE-153, un manuel d'utilisation et 5 caches en plas- 
tique. 


La cassette contient 3 programmes le programme d' 
exploitation qui doit être chargé en mémoire avant 
toute utilisation de la tablette, et deux programmes 
d'application (Sales management et Word master). 


Le câble de raccordement est assez impressionnant : 
il est revêtu d'une véritable "cotte de mailles" qui 
le rend très solide, tout en restant très souple. Le 
seul point à regretter est sa longueur (40 cm) qui 
n'est pas suffisante. 


Le manuel d'utilisation (malheureusement en anglais) 





n'est pas un exemple de clarté (programmes décrits 
avant utilisation de la tablette). 


En ce qui concerne l'utilisation, elle ne se fait pas 
à l'aide de "véritables" instructions BASIC, mais par 
un CALL... 3 types d'appel sont possibles : GET (at- 
tente d'un caractère), INKEY (saisie d'un caractère 
au vol), et simulation de clavier. Le manuel donne 
ainsi trois exemples de programmes : Constellations, 
Dessinateur, Inventaire. 


Les caches en plastique s'utilisent avec les program- 
mes d'application. 


Un élément déterminant est le prix de cette interfa- 
ce : environ 1500 FTIC. C'est très cher, Surtout quand 
on sait que le CE-153 ne contient que 3 circuits... 


Cette tablette est donc utile à toute personne dési- 
rant se munir d'un Second clavier ou pour certains 
jeux notament (échecs, othello) où elle peut servir 
de damier. 


Daniel Glazman 
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POQUETTE 





mathématiques 





Lorsqu'une fonction 
s’'annule... 





Quel élève de terminale C ne s'est jamais retrouvé 
impuissant à résoudre une équation comme À = eX ?7?? 
Après avoir tout essayé, l'élève prend sa calculatri- 


ce scientifique ét cherche une solution approximative. 


C'est ce que propose ici : d'après la méthode de New- 
ton, si x est une valeur approché de x, (solution de 
l'équation à résoudre f(x)=0), alors (x- ie est une 
meilleure approximation de xs. En bouclant &)Ca1cul 
sur lui-même, on arrive assez vite à une valeur sa- 
tisfaisante de x,. 

J'utilise dans mon programme un "“auto-programmateur" 
qui me permet d'introduire ma fonction pendant l'exé- 
cution du programme (celle-ci est à introduire en 
fonction de X). Le programme s'exécute par DEF F. 


Ensuite, le programme vous demande une valeur x de 
départ pour le calcul, puis une sensibilité € telle 


(C) Daniel 
(C) TRACE 
Function"s zero 


GLAZMAN 


200: FÉFXEKKXKKKKX 
XX XKACKOOIOEREX 
KXKHEKKEIREREEX 
IOKKOOCRIOOICIUX 
IOKOOHCKCKOOCIOICOK 
XXXXKKX 

DPF RESTARE TS 











: I=CPEEK 39918 

—128)X256+PEEK 

39911+6: INPUT 
"FONCTION = 7" 
3J$:CALL &F957 

939:J=31676:FOR I-=- 

ITO I-19+PEEK 
(1-2):1IF PEEK 
JCHISPOKE 1; 
PEEK J:J=J+1: 
NEXT I 


que si x est une bonne approximation de x, alors 
1x-xf< €. 

Si le programme n'arrive pas à se stabiliser autour 
d'une valeur, c'est que l'équation n'admet pas de so- 
lutions. 


En cas d'"ERROR 38", 2 possibilités : 


1) pas de solution à l'équation 
2) sensibilité € trop fine (10-%E10-1l):réduire la 
sensibilité en augmentant € 


Et maintenant, la solution de l'équation À = ex est 


0,5671432914... 


Pour changer de valeur de départ, ne faites pas DEF 
F mis DEFG : vous gardez la même fonction. 


535:POKE 1, 58, 241, 
153, 13 

549: "G"INPUT "x ?" 
5X; "SENSIBILIT 
EsniS 

545:WAIT 2 

559: GOSUB “f":Y=FX 
:X=X+S: GOSUB ‘ 
f":2=CFX-Y2/S 

568: X=X-Y/2:PRINT 
X:GOTO 558 


Daniel Glazman 


Bogues, trucs, erreurs 
(2° cuvée) 





I - Entrez le programme suivant : 


5:"2"WAIT 9: 
GCURSOR 2:FOR 


I=0TO 155: 
GPRINT I;3:NEXT 
I 


19:GOTO 12 


puis en mode RUN, tapez un texte (par exemple J'ADORE 
TRACE), puis 2 fois @ et DEF Z. 
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Appuyez sur BREAK et 

Hé oui ! le curseur continue à fonctionner mais uni- 
quement sur le caractère où il se trouvait avant le 
DER 


II - La commande RUN efface les variables de tableaux 
et la pile, alors comment éviter celà sans passer par 
une touche utilisateur (DEF Z) ? 

Eh bien, tout simplement en tapant GOTO [ENTER]... 

ça marche... 


Daniel Glazman 





Jumpman, 
le saute-fantômes 





Toujours atteint d'une maladie rare appelée la “pac- 
manie aigüe", je vous présente ici une nouvelle ver- 
sion du jeu de saute-mouton... 


Le jeu est simple :' au début les jumpmen sont à gau- 
che, les fantômes à droite, le but est d'inverser cet- 
te situation. Pour ce faire, lire la suite de l'arti- 
clestst ste) 


Le terrain est représenté par dix cases numérotées de 
gauche à droite et de 0 à 9 (une barre horizontale 
réprésente une case vide). 


Les jumpmen ne peuvent se déplacer que de gauche à 
droite et les fantômes de droite à gauche ; voici 
(pour le jumpman) les mouvements autorisés (et les 
seuls !) 


€ - €: ER> 


Lorsque les jumpmen occupent les cases 7 à 9 et les 
fantômes les cases O0 à 2, le jeu est fini ; répondez 
19 au point d'interrogation vous demandant un numéro 
de case. 


L'architecture du programme à présent : 


: c'est toujours nous... 


Lignes 5 5 : initialisation et création du 
terrain 

Ligne 16 impression du terrain 

Ligne 17 : entrée du mouvement 


Lignes 18 à 202 : analyse dé la validité du coup ; 


s'il est valable, l'exécuter 





Voici les 2 découvertes que j'ai faites : 
1) Gain de 197 octets : 
Il auffit de faire: 


- POKE &7866,Q 
- POKE &7868,0 


MEM affichera alors (sans extension) 
2947 
NEW ne changera rien mais NEW @ redonnera MEM-=1850. 


2) Il est bien connu que l'on peut protéger ou dépro- 
téger un programme par LOCK et UNLOCK ce qui n'empê- 
che le listage que si le mode est différent de PRO, 

et l'exécution que si il est différent de RUN. Faire 
LOCK en mode "Réserve" empêche donc les 2 possibilités 
mais laisse encore à l'utilisateur la faculté de dé- 
truire les touches préprogrammées... 

I1 existe une autre façon d'empêcher le listage et 
l'exécution grâce à un POKE bien placé : 


POKE &7867,63 (ou tout nombre positif et inférieur 
265); 
LIST et RUN ne donneront plus rien ; 


9:GOTO 16 
181:1IF ACA+2)=BAND 
ACA+I)CDALET À 
(AD=9: ACA+2)=1 
: GOTO 16 
102: GOTO 16 
200: IF ACA-1)=BLET 
A(A-1)=2:A(A)D= 
9:GOTO 16 
281; IF AC(A-2)=8AND 
ACA-1)C)BLET A 
CA)=D: ACA-2)=2 
:GOTO 16 
202:GOT0 16 
1209:FO0R I=0TO 2: 
IF AC1)=0: 
GOTO 2888 
1891:NEXT I 
1882:FOR 1=7T0 9: 
IF ACI)=9 
GOTO 2888 
1903: NEXT I 
1919:CLS :uAIT : 
: CURSOR 18: PRINT "En"5n 
INPUT A: IF A=1 Re td 


1811:GOT0 5 
AGOTO 1908 : 
ne re 2880:CLS :WAIT 75 


AGOTO 16 : PRINT “Uous 
GOTO 1880XA(A) LR AE Ca 


AE de moi ? 
IF ACA+1)=BLET : k 
A(A+1)=1:Q(A)= 288]1:uAIT 2:GOT0 


16 
en cas de fin de partie 


1:REM CC) Daniel 
GLAZMAN 
2:REM CC) TRACE 
3:REM PARIS 83 
5:WAIT Z:CLEAR 

RESTORE 

19: DATA ‘2E3B27F7F 
3B7F00000098000 

11: DQTA “49494949 
40404040466022 

12:DATA “1C3E7F7F 
772200090900 

13: DIM A$C2)%X21: 
READ A$(2), A$( 
2), A$(1) 

:DIM ACS):FOR 1] 
=1T0 3:A(I1)=1; 
NEXT I 

: FOR I=670 8:4A( 
1)=2:NEXT I 
CLS :FOR I=0T0 
9: GPRINT A$(A( 
12); :NEXT 1 





Lignes 1000 à 2000 : 


Et voilà... En sachant qu'il suffit de préciser à vo- 
tre poquette la case où se trouve le jumpman (ou le 
fantôme) pour que celui-ci se déplace automatiquement, 
amusez-vous bien... 


Daniel Glazman 


RE IE EP ER PE 2 


MEM retrouvera des valeurs très grandes (si l'on fait 
POKE &7867,0 on aura MEM=18409), mais ces indications 
sont fantaisistes. 

En effet, l'utilisateur sera dans l'impossibilité de 
programmer (tout essai donnera ERROR 13 bien que l'on 
ait MEM > 0) 

Pour rappeler le programme il suffira de faire POKE 
&7867,64 (même le pointeur est gardé intact). 

Exemple : 


Mode "PRO" NEW 9 
10 PRINT "O.K., Ca MARCHE" 
RUN donnera ce que l'on attend. 


Si l'on repasse en mode "PRO" et que l'on appuie sur 
[Hlou[rlon verra que le signe - est placé après le 
deuxième guillemet. 

Faire POKE &7867,63 puis ou[f]: rien n'apparaît ! 
De plus, MEM=2281 (!!1) et RUN ne donne rien. Faire 
POKE &7867,64 puis RUN et "O.K., CA MARCHE" apparaît 
sur l'afficheur. 

Cette astuce plus un LOCK sur RUN, laisse seulement 
à l'utilisateur la possibilité d'utiliser le PC.2 en 
calculette... 

Paul Courbis 
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ER EAN POQU'ETTE 


| 
En 
En 
= 
© 
© 
À 


vie pratique 





La ville dans la poche 





Si l'on admet qu'une rue qui serait fermée aux deux 
bouts ne mènerait pas bien loin, on discerne le parti 
à tirer d'un ordinateur sachant ce qui se trouve à 
chaque bout de cette rue : il va nous dire où elle 
mène, et ce qui y aboutit. 


Le programme "PLAN" est donc Surtout composé d'une 
très longue liste de DATA ; ma version concerne 133 
rues du centre de La Rochelle, et chaque rue doit y 
figurer sous la forme suivante : "Nom", N, N1, N2, où 
N est le numéro d'ordre de la rue "Nom" dans la liste, 
N1, celui de la rue qui y mène et N2 celui de la rue 
où elle aboutit, le choix entre mener et aboutir pou- 
vant être dictée par les sens uniques, si la carte 
utilisée les indique, ou arbitraire. 


Ceux qui aiment leur ville et croient la connaître 
auront peut-être quelques surprises en réalisant son 
plan informatisé : ils s'apercevront peut-être qu'ils 
ignorent le nom d'endroits où ils passent chaque jour. 


Le programme proprement dit pourrait très bien com- 
mencer en ligne 15 ; pour ma part, j'ai affecté GOTO 
10 € à la touche A, et tout le contenu de la ligne 10 
à la touche Z, en mode Réserve. Si c'est aussi votre 
cas, amusez-vous, en mode pro, à taper un numéro de 
ligne, puis Shift A le caractère @ a disparu. Eton- 
nant, non ? 


Mais revenons à la ligne 15 : on y dimensionne un ta- 
bleau de 2 variables alphanumériques, et 3 de 2 varia- 
bles numériques, correspondant à ce que j'indiquais 
plus haut. Le programme, faisant semblant de croire 
qu'une ville n'est faite que de rues, demande à l'u- 
tilisateur le nom de celle qu'il recherche et le ran- 
ge en B$(@). 


Puis il effectue une première lecture des données. 
J'ai dit qu'il y avait, dans ma version, 133 rues, et 
la boucle est de 1—135. La première et la dernière 


nu 


Le 
on 
or Gi 
CNT A END 0) 





# 
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PRINT B$(Cläi" 





série de données servent dans le cas d'impasses, de 
rues hors des limites choisies, de fautes d'orthogra- 
phe. Lorsque le programme à repéré dans les données 

la rue demandée, il stocke son nom et les 3 données 
numériques qui l'accompagnent dans l'élément 1 de cha- 
que tableau. Il affiche le nom trouvé, puis, grâce à 
1=135, passe à la suite... 


J'ai dit que le programme, par l'INPUT en ligne 20, 
feignait de croire à la seule existence des rues : en 
réalité, dans les data, tout ce qui est square, place, 
esplanade, ou autre bizarrérie de l'urbanisme, est 
repéré par "*#s", d'où la double formule de repérage 
en ligne 35. 


vela étant fait, commence une nouvelle lecture de tou- 
tes les données : les tests concernent les données 
numériques. La rue d'où part celle recherchée est sui- 
vie du signe —, celle où elle aboutit précède le mê- 
me signe, celles trouvées en chemin sont entre 

thèses. 


Codez d'abord l'inconnu 6,9,9. N'oubliez pas qu'il 
faudra une <FIN}>, codée N,4,4. Prenez le plan de la 
ville à soumettre à ce traitement, et délimitez le 
secteur qui vous intéresse. Souvent, les rues du cen- 
tre sont repérées dans l'index par un signe distinc- 
tif. Préparez bien votre codage en 2 temps : d'abord, 
les numéros d'ordre, puis les entrées/sorties. Gare 
aux carrefours : c'est sur la précision de votre code 
que se joue la validité du programme. 


Enfin, si vos données sont correctes, et que vous a- 
yez travaillé sur le plan de Helsinki ou de Sofia, où 
vous vous rendez bientôt, dites-vous que vous évite- 
rez des conversations laborieuses dans une langue ma 
foi pas évidente... 








F 
3e 
Li) 


ai&3 





7H: "HOTEL DE VILLE") 


See 


Ts25s 125 "ARCERE "5554 


SG: DATA "ARSENAL ares 
1385 "AUFREDY "3193185 
1283: *AUGUSTINS*siiss 
Hsi13 

AA: DATA “BAREDT'112s82 
@s "LECLERC"'s13s128308 
3 ENEODBES"s14s36s1i:5 
s "+ BARENTIN "515545 

S85:DATA — 
1165961323 FEURRE 
7735118 VBLETTERIE 
“3183392392 

S96:LDATA YBÜNNES FEMMES" 
51953330 7s *SÜNPLAND" 
5295122599 BRAVE RÜ 
NDEAU "2195122937 

SBT:DATA "BUFÉETERIE",22 
5595893 "BUJAUD" 52331 
155: 735"* CACAUD'» 245 
83:37 

888:DATA x CAILLE "52931 
265375 “CANARDS" 3 263 12 
és 1125 "CARMES "3275 12 
Ts40 

849:DATA YCHRINE "3285403 
208: "x ST'JEAN JAÂCR 
2°:295 283 1085 CHAUIR 
IER"s530s589112 

S14:DATA ‘CHEF . VILLES 
1319913985 CLOCHE"s3 
ee 
5333693233 

811:2414 "COLLEGE "s3dsds 
495 “COMMANDERIE "5359 
121s6ds "COMTESSE" s 36 
1435154 

Si2iD4ih "EC 
524563" 
CASE RU TES 1 
39383507 

BISSDATA ‘#x WILSON "sdb i 











Dean e D 












ERRE‘s54Ssidsi5 

T4 ‘#4 DURAND'sdés1 
5411925 ECOLES" s@7si 

283993 "ESCALE "+483 

Sid 











* FAGOTS 3 515 79 








ASP TNT 
3 *FLEURIAU "5533 56rii 


FONDERIES "3:94 723 





CÉRL 
S19:TATA "GALLI 





12221 YGANDETTA 58 


9:193:° 






224: DATA VGE: 
26152993 
1621933212 
Zséés 52 

SÉRIE oE HORLOGE 
. LTÉE 


LADAUGE 3 












YMERCIERS "37331 
ERNOZ" ; 74865 
RYAULT "57583407 


S825:D474 "METZ" s Fés139@ 
MINAGE"s Frs19s85 M0 
LIERE‘s 17858376 

S26:LAT4 MONNAIE" s 9314 
85895" MOUREILLES "80 
tidsigs MURAILLES",8 
En le 

S27:D4Tà "GUILBAUD "58297 

| 6rTér "ORBIGNY' 383545 
243 "PALAIS" 5 84 3091 
828:DAT4 ‘PARADIS"s585s11 
65435 "PARC" 3965 F5 74 
s"P4S DU NINAGE‘587s 
33:63 
829:DA4T4 ‘SUEDE "59851750 
s “PAULEUN" 5895 345 3% 
Y“PERNELLE"s590:128:14 

SSG: DATA ‘+ PETITS EANCS 
“sSlsGdséde “PORT 197 
s493s11ids: “PORTE DAUPH 

E"s93sd4t 

TA “PORTE NEUVE*.9 

1933: “PRECHE "3955 

As "RAM BAUD + 9654 





S'sidisSrsts 
T CLBUIDE": 
BIS: ISTA 124 *PRORTE RœYA 

SE SHC EA 
JDE ns 


sien 













Exemple d'exécution : 


comment aller de la rue d'Ablois 
à la rue du Temple. 

Le choix qui rallonge (St Nicolas) 

se trouve automatiquement corrigé. 


# DÜPERRE 
Ex *# SU 


GROSSE ADR. ÜGE 
-) + BARENTIN 
PETIIYS BANCS 


ATA é “115854 

F3 ST LEONARL”, 18 

9321315 ST LOUIS": 11 
3 








8 


On orne 
s113:127398 


TRACE N°7 - Octobre 1983 - 63 


NI POQUETTE 


ne re Mt Ml POQUETTE 


533357 








Un mot 


peut en cacher 


un autre 





1265485 "TRiE 


8d4i:3j4rh ‘TROIS FUSEAUX"* 
5127s399s6s"%# VALIE®S 
1243583453" 
» 125: 263128 





RS°s1225 843:JAT 
g: 

3: 

YAUCLERC* Béé:3à 
3 

3 















202mMm22OC2—- 
OCcCUuA1-02-m 
EzCom-omZz 


en Ou LH Te 
= fa 


VVIELSJEUR 51293 
a 
"YODILIERS 


FA “STES CLAIRES” 
239938 "DAMES "5133 


i£és 


FHFINÿ*si34s5ÿ 


J.F. Chapin 





AIRITII INJOID JUIE R 





Il s'agit de trouver un mot comme au pendu, avec une 
différence : l'ordinateur n'a pas de réserve de mot 
et il est nécessaire d'être deux, l'un donne le mot 
l'autre le cherche. Si une lettre est représentée 


elle apparaîtra automatiquement partout où il se doit, 


Les lettres du début et de la fin ne sont pas données 
au départ. 


Le programme sur PC-1211 se divise en 2 parties : 


Mode DEF SHFT À : l'ordinateur demande tout d'abord 
1e nombre de lettres du mot (maximum 12 lettres) puis 
le mot, lettre par lettre. 


SHFT B : l'ordinateur indique 1e nombre de lettres 
qui composent le mot puis demande le niveau de diffi- 
culté : O = autant d'essais que de lettres, 4 = 4 es- 
sais en plus du nombre de lettres (on peut choisir 
d'autres valeurs). Puis une fois le niveau défini il 
faut donner une première lettre. 

À la suite de quoi, l'ordinateur affiche une suite 

de "?" (autant qu'il y a de lettres) et remplace au 
fur et à mesuré les "?" par les lettres correctes. 


Notez qu'après l'affichage du mot en formation il est 
nécessaire d'appuyer sur (ENTER) avant de passer à.l' 
essai suivant. Cet "inconvénient" peut être supprimé 

sur un 1211 en remplaçant l'ordre PRINT par une bou- 

cle et l'ordre PAUSE. Sur le 1210 ce n'est pas possi- 
ble (manque de place). 


Une fois les essais terminés et si le mot n'est pas 
trouvé, l'ordinateur indique quel était ce mot. 


Comme il se présente, le programme nécessite les mé- 


moires À - Z + A(27) A(28) A(29) et occupe 374 pas 
(ce qui en fait en tout 398). 





64 - TRACE N° 7 - Octobre 1983 


(CC) ANGEL ETIENNE 
CC) TRACE 
Mot cache... 


1: "A"CLERR : 


INPUT -°NB°LÉETT. 
RESCMAX 12)=?" 
52 


FOR Y=1T0 Z:A$ 
CYD="PMINEXT Ÿ 
:FOR Y=13T0 12 
+Z:INPUT A$CY) 
:NEXT Y:END 


N 


3: "B"PAUSE “MOT 
ENS CR ÉEPTe 
LHPINBUTSENTUCE 


=4, D=6)";A(27) 

S:FOR Y=1TO Z+A( 
27): INPUT A$(2 
9) 


6:FOR A(28)=137T0 
(Z+12):IF A$(2 
9)=A$(A(28)) 
LET A$(A(28)-1 
2)=A$(29) 

27:NEXT A(28) 

8:PRINT A$S;B$;C$ 
5D$;ES$;F$;GS$S;H 
$S;: IS: J$;K$S;LS$: 
NEXT Y 

S:FOR Y=1T0 Z:1F 
A$CY)="?"PAUSE 
"PERDU":GOTC 1 
) 

1B:NEXT Y 

V2SBEEPESSPRINTS 
GAGNE " : END 

15:PAUSE "LE MOT 
ETAIT':BEEP 3: 
PRINT M$; NS; 0$ 
3P$: AS; RS; S$;T 
$S;US$; US; US; X$: 
END 


Etienne Angel 









le DOS de À àZ 


COPY 


(suite) 





Le Modèle 1 possède plusieurs Systèmes d'Exploitation 
des Disquettes (SED, ou DOS en anglais). Ces diffé- 
rents systèmes ont beaucoup de points communs, 
particulièrement ceux de la "lignée" TRSDOS- 
NEWDOS-NEWDOS80-LDOS, qui s'inspirent tous, à 
quelques détails près, du TRSDOS de Tandy (version 
initiale 2.1). Nous publierons régulièrement sous 
forme de fiches pratiques, les commandes de ces 
différents DOS, classées alphabétiquement. Ces 
fiches ne prétendent pas remplacer les manuels 
originaux qu'il est impératif de posséder (il 
n'était pas envisageable de publier sous cette forme 
l'équivalent de plusieurs centaines de pages ...). 


Leur but est de fournir à l'utilisateur une 
information rapide d'accès (classement alphabétique), 
pratique (exemples d'utilisation), comparative 
(différents DOS) et dans une langue qu'il est censé 
connaître (français)... 


Les DOS les plus répandus ont été retenus pour 
constituer ces fiches. Ce sont le TRSDOS version 2.3 
de Tandy, le NEWDOS80 version 2 d'Apparat et le 

LDOS version 5.0 de Lobo Drives International. En 
règle générale, nous nous baserons sur les commandes 
du TRSDOS, en signalant les différences ou les 
apports rencontrés dans les autres systèmes 
d'exploitation. 


Conventions d'écriture 


Dans la description des commandes, les mots en 
caractères majuscules désignent les commandes 
proprement dites, ainsi que les mots-clés associés. 
Les mots en caractères minuscules ne font pas partie 
des commandes mais en représentent la forme. Au 
moment de l'exécution, il faudra leur substituer 
le ou les mots appropriés. Parmi ceux-ci, nous 
troùuverons par exemple “nomfich", qui désigne 

un nom de fichier, "motpasse" qui signifie qu'un 
mot de passe (password) est attendu à cet endroit. 
Dans tous les cas, un coup d'oeil sur les exemples 
donnés devrait lever toute ambiguité. 





in, il faut signaler que le NEWDOS80 emploie 
néifféremment la: virgule où l'espace comme 
=éparateur dans les commandes. 





Nous terminons dans ce numéro la description des dif- 
férents formats de la commande COPY sous NEWDOS 80 
V2.0 par l'étude du format 6. 


FORMAT 6 


COFY, LC: 1dn1l,T0],C:Jdn2t=tc21,mm/jj/aa,CBFC,YIC,NJ 


C,USRIC, /ext1C,UPDIC, IiF=specfich31[,XLF=specfich4] 
C,CFWOIC,NDMWIC,FMTIC,NFMTIC, SPDN=dn=1 

C, DPDN=dn410,SFW=mot-de-passe11(,0DFW=mot-de-passe?] 
€, NDPW=mot-de-passeT](,DDNDIC,ODN=nom11c,KDN] 
C,KDDIC,NDN=nom210, SN=nom31c,USDIC,UBB] 
C,DDSL=1n11€,2DGA=ac11 


Ce format réalise une "copie" de fichiers multiples 
et se distingue du format 5 par l'utilisation du pa- 
ramètre CBF (COPY by FILE). Le choix des fichiers à 
recopier est fait par l'utilisation conjuguée des op- 
tions : USR, EXT, UPD, ILF, XLF, CFNO. Les options du 
format 5 (voir TRACE n° 6) à l'exception de BDU sont 
réutilisées dans le format 6. 


Si NFMT est spécifié alors aucun des paramètres sui- 
vants ne peuvent être utilisés dans le format 6 : Y, 
N, KDN, KDD, ND,N, BDU, USD, NDPW, DDSL, DDGA, TC2. 

Si NFMT n'est pas 

nation est formattée comme si la commande était FOR- 
MAT avec l'implantation initiale de BOOT/SYS et DIR/ 
SYS, puis la mise au "Répertoire" (DIR/SYS) de tous 

les fichiers à recopier. 


Les varamétres spécifiques du format 6 sont : 


CBF Cette option indique que la copie doit 

(Copy by file) s'effectuer par fichier plutôt que sé- 
quentiellement par ordre des secteurs 
de la disquette. 


USR Seuls les fichiers "utilisateurs" sont 
(User) recopiés (Fichiers figurant au réper- 
toire visible) ; les fichiers invisi- 


bles et systèmes (/SYS) sont exclus. 


/JEXT Seuls les fichiers portant l'extension 
/EXT sont recopiés.… 

UPD Seuls les fichiers ayant le drapeau de 

(Updated "MISE A JOUR" positionné sont recopiés. 


files) Ce drapeau est établi par la routine 

d'écriture standard SED pour indiquer 
qu'au moins un secteur a été écrit ou 
réécrit depuis que le drapeau de mise 
à jour a été remis à zéro. Ce drapeau 
est remis à @ par une demande spécifi- 
que établie par PROT et ATTRIB. Cette 
RAZ n'a pas lieu lors de l'ordre COPY. 


LL 
SpecFich3 
(Include List 
File) 


SpecFich3 spécifie un fichier conte- 
nant une liste de fichiers à recopier ; 
si un fichier n'est pas dans la liste 
il n'est pas copié. À l'intérieur de 

la liste chaque fichier à copier doit 
être spécifié par son nom complet (avec 
extension) suivi par un caractère de 
fin de ligne (EOL) = GDH. Si une spé- 
cification commence par un point vir- 
gule cette ligne est considérée comme 
un commentaire et non prise en compte. 
Chaque spécification excepté un commen- 
taire est limitée à un maximum de 13 
caractères incluant EOL = GDH. ILF est 
mutuellement exclusif avec XLF. 


XLF = 


SpecFich 4 
(Exclusion 


SpecFich 4 spécifie un fichier conte- 
nant une liste de fichiers à ne pas 
prendre en compte dans la recopie, les 
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List File) 


CFWO 
(Check File 


caractéristiques de ce fichier sont 
identiques à celles de ILF. XLF est 
mutuellement exclusif avec ILF. 


Pour qualifier les fichiers à recopier 
le SED demande à l'utilisateur un fi- 


with Operator) chier à la fois,par un message écran 


ODPW = mot 
de passe 2 


(014 Destina- 
tion Diskette 


affichant le nom de fichier ; répondre 
Y si la copie doit être prise en comp- 
te N dans le cas contraire ; répondre 
R pour redémarrer l'ensemble de la sé- 
quence d'interrogation ou Q pour quit- 
ter la commande. Aucun fichier n'est 
copié tant que l'interrogation n'est 
pas terminée. 


Si NFMT est spécifié, si les mots de 

passe sont validés et si l'option sys- 
tème AR = N, alors la copie nécessite 
une disquette destination avec un mot 


Password) de passe correspondant. Si le mot de 
passe 2 ne correspond pas avec celui 
de cette disquette destination alors 
la copie est interrompue. 
DDSL = ln1 Si DDSL est specifié le formattage fait 
(Destination démarrer le "repertoire" au premier 
Diskette secteur du lump 1ni autrement le n° de 
Directory de lump de démarrage par défaut est 


Starting Lump) utilisé (voir commande PDRIVE). DDSL 


DDGA = gc1 


(Destination 


Diskette 
Directory 
Granule 
Allocation) 


Remarques : 


Exemples : 


est mutuellement exclusif avec NFMT. 


Le formattage alloue gcl (2<gc1<6) 
granules au repertoire si DDGA est spé- 
cifié. Autrement c'est la svécifica- 
tion par défaut de PDRIVE qui est uti- 
lisé. DDGA est mutuellement exclusif 
avec NFMT. 


Si à la suite d'une copie en format 6 la 
disquette destination a insuffisamment 
d'espace pour contenir un fichier, le 
message "DISKETTE FULL = nom/ext) et le 
marqueur de fin de fichier (EOF) du fi- 
chier destination est mis à zéro. 


Une copie avec une seule unité de dis- 
quette ne peut être effectuée sous Format 
6 (ou Format 5) par "appel SED" (DOS-CALL) 
sous BASIC par exemple, car la copie sous 
DOS-CALL se limite à la zone mémoire en- 
dessous de 7990H, ceci nécessitant alors 
un nombre d'échanges de disquettes trop 
important. 


COFY,0,1,,CBF,CFWO, NDMW 


Cette commande recopie les fichiers de 
la disquette 0 sur la disquette 1 pour 
lesquels l'opérateur répond "Y" (yes) 

à la question posée (paramètre CFWO). 
NDMW sous-entend que les disquettes sont 
montées dans les unités 0 et 1 et le 
message ‘monter la disquette source ... 
destination ..." n'est pas affiché. 
Remarquez que la date est sautée par les 
les deux virgules. 


COFY,0,1,,CBF,USR, DFDN=0 


Ici, tous les fichiers visibles (para- 
mètre USR) sont copiés de la disquette 
0 vers la disquette l, cette dernière 
possédant les caractéristiques définies 
par le PDRIVE de l'unité 0. 


Index des 
mots-clés 





La liste des mots-clés figurant ci-dessous est 
destinée à être exploitée par le programme de 
gestion des articles décrit dans le numéro 1 de 
TRACE (pages 58 à 64). Le format est le suivant: 


Nom abrégé de l'article, numéro de page : 1 à 4 
mots-clés. 


En prenant l'habitude d'entrer cette liste à 

chaque numéro de TRACE, vous constituerez ainsi une 
petite base de données vous permettant de trouver 
plus efficacement et plus rapidement l'article que 
vous cherchez. Bien entendu, cette liste est donnée 
à titre indicatif, et vous pourrez toujours en mo- 
difier ou en compléter le contenu, afin de l'adapter 
à vos besoins ; mais avant toute chose, vous devez 
vous imposer une cértaine normalisation des mots- 
clés (en principe, ils sont limités à 12 caractères) 
PROGRAMME par exemple, indiquera toujours qu'un 
listage de programme est donné dans l'article. Pour 
cela aussi, faites-nous part de vos idées! 


KIT ET DOUBLE, 
MATERIEL, KIT 
MONSTRES, 20 : PROGRAMME, 
MATHEMATIQUES 
PARLER-VOUS, 24 : 
ENSEIGNEMENT 
RUBANS, 28 : BRICOLAGE, 
IMPRIMANTE 
GARDEZ TRACE, 29 : 
MOD3, OUTILS 
MINI-ZAP, 32 : PROGRAMME, OUTILS, 
REFLEXION, 35 : PROGRAMME, BASIC, 
PLUS VITE, 38 : PROGRAMME, OUTILS, 
CASSETTE 
AMELIOREZ, 43 
CASSETTE 
AMORCE, 45 : 


19 : ESSAI, DISQUETTES, 


BASIC, JEU, 


PROGRAMME, BASIC, 


MATERIEL, 


PROGRAMME, MODI, 
DOS 
JEU 


PROGRAMME, OUTILS, 


: PROGRAMME, OUTILS, CASSETTE 
SESAME, 46 : PROGRAMME, OUTILS, DOS 
OUVREZ, 47 : BRICOLAGE, MATERIEL, 
INTERFACE 
EXTENSIONS, 48 : OUTILS, 
BASIC, CASSETTE 
TRI, 51 : PROGRAMME, OUTILS, 
LIGNES VITALES, 55 
PROGRAMMATION 
DESASSEMBLEZ, 57 : POQUETTE, 
ASSEMBLEUR, PC1500 
PC1245, 59 : POQUETTE, 
CLAVIER, 59 : 
FONCTION, 60 : 
MATHEMATIQUES, 
BOGUES, 60 : 


EXTENSION, 


TRI 
PROGRAMME, OUTILS, 
PROGRAMME, 


ESSAT 
ESSAI 


PC1245, 
POQUETTE, CE153, 
POQUETTE, PROGRAMME 


ENSEIGNEMENT 
POQUETTE, PROGRAMME 
JUMPMAN, 61 : POQUETTE, PROGRAMME, JEU 
VILLE, 62 : POQUETTE, PROGRAMME, 
PRATIQUE 
UN MOT, 64 : 
DOS DE À À Z, 


POQUETTE, PROGRAMME, JEU 
65 : FICHE DOS 
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GÉNÉRATION] 


PENTA 34, rue de Turin, 75008 PARIS - Tél. 293.41.33 
— : - Métro : Liège, St-Lazare, Place Clichy - Félex 614789 


PENTA 13 10 bd Arago, 75013 PARIS - Tél. 336.26.05 
= Métro : Gobelins (service correspondance et magasin) 


PE NTA 16 5 rue Maurice Bourdet, 75016 PARIS _ 524.23.16 
(pont de Grenelle) - Metro Charles Michels - Bus 70/72 ;: Maison de l’'ORTF 








HORAIRES : du lundi au samedi 
de 9 heures à 19.30 sans interruption *Sauf PENTA 8 qui ferme à 19 heures. 


MICROFAZER SPECIAL PROF 80 


Buffer d’imprimante 
de 16 jusqu’à 128 K 

Le C.E. et 
les plans 


647F 


e Interface floppy 5°? 40 ou 9 TPLI. 1 à 4 lecteurs. 
e Compatible TRS DOS*, L'DOS®#, NEW DOS®, 
OS 80%. 
—. ; : OPTIONS : 
CARACTERISTIQUES : e Carte graphique 8 couleurs matrice 256 x 512 sortie 
e CPU Z80 4 MHZ. Péritel 48 K RAM contrôleur 9366 Efcis. 456 F (le CI 
e 64k RAM (dont 16 k Shadow pour CP/m). seul). 
e 12 K Basic LNW 80%. e Carte CP/M 229 F (CI seul}, 
e Interface cassette standard TRS 80%. 
e Interface parallèle type EPSON. 
e Interface série tÿpe RS232C et 20 mA. 
e Clavier AZERTY ou QWERTY: 
e Sortie vidéo et UHF (modulateur en loption). 


SERVICE CORRESPONDANCE : Commandez par téléphone 


Demandez Catherine au 336.26.05 avant 16 h votre commande partira le jour même* 


* en fonction des stocks disponibles 


Prof 80 est un circuit imprimé double 

face, trous métallisés avec vernis 

épargne et sérigraphie. Il est disponible 

au prix de 647 F TTC et une fois monté, 
vous donne accès à toute la bibliothèque 
de programmes du TRS 805, $ 
Tous les composants du PROF 80 sont: 
disponibles chez PENTA 8, 13 ou 165. 

fi Css indicatif le BASIC 12 K est vend E 





CONRREE RE ASE 






Cet interface se branche directement sur la joue {Fou 
série de votre imprimante et permet la buffarisation de 
vos données. Cela veut dire que quelle que Soit la vi- 
tesse du printer (un nodem, plotter), après quelques 
secondes votre ordinateur redeviendra dispomble, les 
données à transmettre n'étant plus dans votre RAM 
mais dans la RAM du Microfazer. 

Monté, testé 16 K//—1/..,:. 


128 K {/1! 
Existe en version série — série 


qe SYNTHETISEUR DE VOIX POUR TRS 80 


OU PROF BD ue 495 F 





“e Doubleur de densité. Permet de travailler en 5” en 
double densité. Monté, testé ..................... 1397 F 


SF-SD 16iséct. 
DF-DD 16 sect 








Ce synthétiseur travaille sur le principe des phonèmes. 

Vous tapez sur votre clavier 

— BONJOUR JE SUI LE PRÈF KATR VIN. 

= Run... et vous entendez une voix synthétique qui vous dit ARR ARE je suis le PROF 80» 


Donnez la dimension couleur à votre TRS 80% morele Fou modèle III, vidéo génie ou: 
PROF 80. { 
Caractéristiques |: matrice #5 x 512, 8 couleurs, branchement direct sur le bus. 


Se testée avec Hevbe 2458 F 


DES DOUBLEURS DE DENSIT E LE DOUBLEUR SEUL 
POUR UN TRS 80%  1397FTTC 


Cetinterface se monte en quelques minutes et vous permet de doubler la capacité de 

vos floppys. D'origine PERCOM, ce doubleur est livré avec la disquette «OS 80 D» 

et manuels. Une fois installé le doubleur vous procure une capacité disque de 180 K > 
par lecteur et permet le transfert de tous Vos programmes simple densité. 


CARTE EXTENSIONS FLOPPY POUR TRS 80° 








DAIVE FLOPPY 
NOUVEAU 
HALF SIZE 





8°’ 
SF-0D... 
DF-DD.... 


- Imprimante graphique compacte - Inter- 
face parallèle en standard - 80 car./ligne - 
50! car./sec. - Impression en simple ou 
double largeur - Papier normal - Entraîne- 
mént par tracteurs ajustables - Interfaces 
TRS 80%, PET, RS 232, APPLE II dispo- 
nibles. 


ner à |: à 


AVERTISSEMENT : 

Les lecteurs de disque nécessitent des réglages d' azi: 
mutage très précis ct, en conséquence, supportent très 
mal les transports. C’est pourquoi les lecteurs achetés 
chez Pentasonic seront testés devant Vous au moment 
de votre achat et ce gratuitement. 

De plus pendant!45 jours ils pourront être révisés et 
réglés sur place (Penta 16) également gratuitement. 
Lecteurs simple face double densité 

hauteur|normale ou demi-hauteur.….............. 















Pour modèle I : MDXII. Le CTetles blans Tilt Double face double densité 
725 F Double face double densité 96 TPI Half 
Pour modèle II : MDX lil. Le CI et les plans .….. : Les nouveaux Half Size sont chez Pentasonicet vendus 
À t 1497 F au même prix que les normaux. 
MDX VI: Monté et testé ....,::.11:1:11 Tavernier, Prof 80, TRS 80, etc. 
: * ILest possible de monter le 96 TPI sur un TRS 80% sut 
MDX « mécanique » avec alimentation . 1382 F : un Tavernier et sur un PROF 80. i 
BIO Fe 
éasomime  & OTHER MYSTERIES rs 
vb Es snespansss save sen: - DOS PLUS est un des dos les plus performants exist! 
DISPONIBLES CHEZ PENTA pour TRS 80 modèle I et IL. 
Captain 80 TRSDOS 2:33 Démonstration chez PENTA 16. 
1: TRS 80 Disk :_ Custom Apple __ SDRR SESSASUSSTIALSTASARE HRREUSSS 
_ Microsoft BASIC Cyberchess System + 
Custom TRS 80 Professional =1 } É\\\ 
BASIC Faster & Better | Professional £2 ; 
Machine Language Disk 1/10 Professional 23 tai j 











